Отправить текстовый файл

[Михаил Юрьевич]

В WordPad есть вкладка "Отправить" ,нажав на нее открывается почтовик по умолчанию и там уже прикрепленный текстовый файл, как это сделать можно?

[betirsolt]

используй Idsmtp

[Пепел Феникса]

ShellExecute + mailto
http://msdn.microsoft.com/en-us/libr...37(VS.85).aspx
насколько я помню...mailto не только в браузерах пашет

[Kotofff]

Попробуй так (через Outlook):

uses
   ComObj;
...
...
...
 procedure SendMail(Subject, Body, RecvAddress : string; Attachs : array of string);
 var
   MM, MS : Variant;
   i : integer;
 begin
   try
     MS := CreateOleObject('MSMAPI.MAPISession');
     try
       MM := CreateOleObject('MSMAPI.MAPIMessages');
       MS.DownLoadMail := False;
       MS.NewSession := False;
       MS.LogonUI := True;
       MS.SignOn;
       MM.SessionID := MS.SessionID;

       MM.Compose;// Сообщение
       MM.RecipIndex := 0;
       MM.RecipAddress := RecvAddress;// Адрес получателя
       MM.MsgSubject := Subject;// Тема письма
       MM.MsgNoteText := Body;// Текст письма

       for i := Low(Attachs) to High(Attachs) do// "клеим" файлы к письму
       begin
         MM.AttachmentIndex := i;
         MM.AttachmentPathName := Attachs[i];
       end;
       MM.Send(True);// Отправляем
       MS.SignOff;// отключаемся
     finally
       VarClear(MS);
     end;
   finally
     VarClear(MM);
   end;
 end;

Используем примерно так :

SendMail('Тема - письмо ниочем!', 'Первая строка письма'#13#10'Вторая строка письма'  , 'box@mail.ru',     ['C:\ToSend\qwerty1.exe', 'C:\ToSend\qwerty2.exe']);

И еще очень хорошая тория по IdSMTP : http://svdpro.info/page.php?id=32

[mihali4]

Было уже. Трудно поискать?
http://programmersforum.ru/showthread.php?t=27696