Solved

ShellExecute... to start my email-client...

Posted on 2000-02-16
2
402 Views
Last Modified: 2010-04-04
Hello !
With my code here i can start my email-client with the parameters 'subject' and 'mailto'.:
//------------------------------
procedure TForm5.Button2Click(Sender: TObject);
var
s : String;
e : String;

begin
e := 'Ingo.Schmoekel@t-online.de';
s := 'mailto:'+e+'?subject=Vielen Dank...!';
ShellExecute(hinstance,'open',PChar(s),nil,nil,SW_SHOWNORMAL);
end;
//--------------------------

Is it possible to send more parameters? ...I need 'Body or so' for the whole email-text and something for an attached file?!
Thank's a lot for a code-sample or even any tip!

Sincerly,
Ingo Schmökel



0
Comment
Question by:Schmoekel
2 Comments
 
LVL 12

Accepted Solution

by:
rwilson032697 earned 200 total points
ID: 2526374
You can add body text like this in a shell execute command:

s := 'mailto:'+e+'?subject=Vielen Dank...!?Body=Some text';

Unfortunately you can't use shellexecute to attach files to a mail message. Below are a couple examples using MAPI and the SakEmail component to compose and send mail using attachments.

The TNMSMTP component shipped with Delphi can also do this (though I do not have a code sample to hand).

uses mapi;

function SendEMail(Handle :THandle;Mail :TStrings) :Cardinal;
 type
   TAttachAccessArray    = array [0..0] of TMapiFileDesc;
   PAttachAccessArray    = ^TAttachAccessArray;
 var
   MapiMessage : TMapiMessage;
   Receip      : TMapiRecipDesc;
   Attachments : PAttachAccessArray;
   AttachCount : Integer;
   i1          : integer;
   FileName    : String;

 begin
   fillChar(MapiMessage,SizeOf(MapiMessage),#0);
   Attachments:=nil;
   fillChar(Receip,SizeOf(Receip),#0);
   if Mail.Values['to']<>'' then
   begin
     Receip.ulReserved:=0;
     Receip.ulRecipClass:=MAPI_TO;
     Receip.lpszName:=StrNew(PChar(Mail.Values['to']));
     Receip.lpszAddress:=StrNew(PChar('SMTP:' + Mail.Values['to']));
     Receip.ulEIDSize:=0;
     MapiMessage.nRecipCount := 1;
     MapiMessage.lpRecips    := @Receip;
   end;
   AttachCount:=0;
   for i1:=0 to MaxInt do
   begin
     if Mail.Values['attachment'+inttostr(i1)]='' then break;
     inc(AttachCount);
   end;
   if AttachCount>0 then
   begin
     GetMem(Attachments,SizeOf(TMapiFileDesc)*AttachCount);
     for i1:=0 to AttachCount-1 do
     begin
       FileName:=Mail.Values['attachment'+inttostr(i1)];
       Attachments[i1].ulReserved    := 0;
       Attachments[i1].flFlags       := 0;
       Attachments[i1].nPosition     := ULONG($FFFFFFFF);
       Attachments[i1].lpszPathName  := StrNew(PChar(FileName));
       Attachments[i1].lpszFileName  := StrNew(PChar(ExtractFileName(FileName
 )));
       Attachments[i1].lpFileType    := nil;
     end;
     MapiMessage.nFileCount:=AttachCount;
     MapiMessage.lpFiles:=@Attachments^;
   end;

   if Mail.Values['subject']<>'' then MapiMessage.lpszSubject
 :=StrNew(PChar(Mail.Values['subject']));
   if Mail.Values['body']<>''    then MapiMessage.lpszNoteText
 :=StrNew(PChar(Mail.Values['body']));

   Result :=MapiSendMail(0, Handle, MapiMessage,MAPI_DIALOG*Ord(Handle<>0)
 or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);

   for i1:=0 to AttachCount-1 do
   begin
     strDispose(Attachments[i1].lpszPathName);
     strDispose(Attachments[i1].lpszFileName);
   end;

   if assigned(MapiMessage.lpszSubject)  then
 strDispose(MapiMessage.lpszSubject);
   if assigned(MapiMessage.lpszNoteText) then
 strDispose(MapiMessage.lpszNoteText);
   if assigned(Receip.lpszAddress)       then
 strDispose(Receip.lpszAddress);
   if assigned(Receip.lpszName)          then
 strDispose(Receip.lpszName);
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
mail : tstringlist
begin
mail:=tstringlist.create;
mail.values['to']:='xyz@zz.com';
mail.values['subject']:='no subject';
mail.values['body']:='no subject';
mail.values['body']:='no subject';
mail.values['attachment0']:='c:\winnt\winnt256.bmp';
mail.values['attachment1']:='c:\winnt\winnt.bmp';
sendEMail(application.handle,mail);
mail.free;
end;

Or you can use something like the SakEmail component and send a mail like this:

procedure TSVOExceptForm.Button1Click(Sender: TObject);

begin
  SakSMTP1.host := 'smtp.trimble.co.nz';
   SakMsg1.CharSet := 'ISO-8859-1';    
   SakMsg1.TextEncoding := te8Bit;
       
SakMsg1.UserName := 'Fred';
   SakMsg1.From := '<Fred@fred.com'+'>';
   SakMsg1.SendTo := 'mary@fred.com';
   SakMsg1.Subject := 'Subject line';
   SakMsg1.Text.Assign(Memo2.Lines);
   SakMsg1.Text.append(' ');
   SakMsg1.Text.AddStrings(Memo1.lines);
   SakSMTP1.connect;
   if not SakSMTP1.SMTPError then
   begin
      SakSMTP1.SendTheMessage( SakMsg1);
      SakSMTP1.quit;
      ShowMessage('Message sent to '+ SakMsg1.SendTo);
   end;
end;

Cheers,

Raymond.
0
 
LVL 5

Expert Comment

by:TheNeil
ID: 2526384
I wouldn't use ShellExecute if I was you (too limited). The best way is to use the MAPI stuff or the SMTP component. Try the following (using MAPI)

uses mapi;

function SendEMail(Handle :THandle;Mail :TStrings):Cardinal;
type
  TAttachAccessArray = ARRAY [0..0] OF TMapiFileDesc;
  PAttachAccessArray = ^TAttachAccessArray;
var
  MapiMessage : TMapiMessage;
  Receip      : TMapiRecipDesc;
  Attachments : PAttachAccessArray;
  AttachCount : Integer;
  i1          : Integer;
  FileName    : String;
begin
  fillChar(MapiMessage,SizeOf(MapiMessage),#0);
  Attachments:=nil;
  fillChar(Receip,SizeOf(Receip),#0);
  if Mail.Values['to'] <> ''
  then
  begin
    Receip.ulReserved := 0;
    Receip.ulRecipClass := MAPI_TO;
    Receip.lpszName := StrNew(PChar(Mail.Values['to']));
    Receip.lpszAddress:=StrNew(PChar('SMTP:' + Mail.Values['to']));
    Receip.ulEIDSize:=0;
    MapiMessage.nRecipCount := 1;
    MapiMessage.lpRecips    := @Receip;
  end;
  AttachCount := 0;
  for i1 := 0 to MaxInt
  do
  begin
    if Mail.Values['attachment'+inttostr(i1)]=''
    then
      break;
    inc(AttachCount);
  end;
  if AttachCount > 0
  then
  begin
    GetMem(Attachments,SizeOf(TMapiFileDesc)*AttachCount);
    for i1 := 0 to AttachCount-1
    do
    begin
      FileName := Mail.Values['attachment'+inttostr(i1)];
      Attachments[i1].ulReserved := 0;
      Attachments[i1].flFlags    := 0;
      Attachments[i1].nPosition  := ULONG($FFFFFFFF);
      Attachments[i1].lpszPathName := StrNew(PChar(FileName));
      Attachments[i1].lpszFileName := StrNew(PChar(ExtractFileName(FileName
 )));
      Attachments[i1].lpFileType := nil;
    end;

    MapiMessage.nFileCount := AttachCount;
    MapiMessage.lpFiles := @Attachments^;
  end;

  if Mail.Values['subject'] <> ''
  then
    MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject']));
  if Mail.Values['body'] <> ''    
  then
    MapiMessage.lpszNoteText
 := StrNew(PChar(Mail.Values['body']));

  Result := MapiSendMail(0, Handle, MapiMessage,MAPI_DIALOG*Ord(Handle<>0)
 or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);

  for i1 := 0 to AttachCount-1
  do
  begin
    strDispose(Attachments[i1].lpszPathName);
    strDispose(Attachments[i1].lpszFileName);
  end;

  if assigned(MapiMessage.lpszSubject)  
  then
    strDispose(MapiMessage.lpszSubject);
  if assigned(MapiMessage.lpszNoteText)
  then
    strDispose(MapiMessage.lpszNoteText);
  if assigned(Receip.lpszAddress)      
  then
    strDispose(Receip.lpszAddress);
  if assigned(Receip.lpszName)          
  then
    strDispose(Receip.lpszName);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mail : TStringList
begin
  mail := TStringList.Create;
  mail.values['to']:='xyz@zz.com';
  mail.values['subject'] := 'no subject';
  mail.values['body'] := 'no subject';
  mail.values['body'] := 'no subject';
  mail.values['attachment0'] := 'c:\winnt\winnt256.bmp';
  mail.values['attachment1'] := 'c:\winnt\winnt.bmp';
  sendEMail(application.handle, mail);
  mail.free;
end;

The Neil

0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question