Форум: "Сети";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизОтправка файла по почте Найти похожие ветки
← →
Itap (2002-10-08 11:11) [0]Программа открывает файл (*.xls) делает в ней изменения, после чего файл надо отправить по определённому адресу указанный в программе. Как сделать эту отправку?
← →
Itap (2002-10-08 11:25) [1]файл нужно отправить по эл.почте, лучше через The Bat или Outlook
← →
Ghost. (2002-10-08 13:52) [2]Ну если в программе то зачем тебе The Bat или Outlook
← →
Itap (2002-10-08 14:17) [3]>Ghost
Как тогда отправить?
← →
Itap (2002-10-08 14:30) [4]Нашёл в инете: http://www.macpc.ru/PRESS/2000_12_offauto/?N=D#08 описание как манипулировать Outlook-ом, буду работать на основе данных из этого сайта. Может кто-то сталкивался с решением такого вопроса, буду рад услышать предложения и полезную информацию.
← →
Serrrgio (2002-10-08 14:33) [5]NMSMTP
В примерах и хелпах все понятно написано.
← →
Itap (2002-10-08 14:43) [6]>Serrrgio
Ок спасибо.
← →
Itap (2002-10-09 14:17) [7]Если кому-то будет интересно:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMsmtp;
type
TForm1 = class(TForm)
Button1: TButton;
NMSMTP1: TNMSMTP;
Edit1: TEdit; //ваш адрес (эл.почты)
Edit2: TEdit; //адрес получающего(эл.почты)
Edit3: TEdit; //тема сообщения
Memo1: TMemo; //текст письма
Edit4: TEdit; //IP почтового сервера
Edit5: TEdit; //ваше имя
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if NMSMTP1.Connected then
NMSMTP1.Disconnect;
NMSMTP1.UserID := Edit5.Text;
NMSMTP1.Host := Edit4.Text;
NMSMTP1.Connect;
if NMSMTP1.Connected then
begin
NMSMTP1.PostMessage.FromAddress := Edit1.Text;
NMSMTP1.PostMessage.FromName := Edit1.Text;
NMSMTP1.PostMessage.ToAddress.Text := Edit2.Text;
NMSMTP1.PostMessage.ToCarbonCopy.Text := "";
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := "";
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.PostMessage.Attachments.Text := "";
NMSMTP1.PostMessage.Subject := Edit3.Text;
NMSMTP1.PostMessage.LocalProgram := "";
NMSMTP1.PostMessage.Date:="";
NMSMTP1.PostMessage.ReplyTo:="";
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
ShowMessage("Всё отправленно");
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var
a:PChar;
b:DWORD;
begin
b:=$100;
GetMem(a,b+1);
GetUserName(a,b);
Edit5.Text:=a;
FreeMem(a);
end;
end.
сырой исходник нашёл в инете (спасибо автору), а модифицировать его можно по своему усмотрению.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c