Отправка файла по почте

← →
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
В примерах и хелпах все понятно написано.

>Serrrgio
Ок спасибо.

Если кому-то будет интересно:
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.

сырой исходник нашёл в инете (спасибо автору), а модифицировать его можно по своему усмотрению.

Отправка файла по почте Найти похожие ветки