CODEWITHSUNDEEP
delphidelphi-xe2delphi-2010delphi-xe
Troz
Troz

Reputation: 97

Delphi: Send email through Outlook with multiple attachments

Hello all experts,

procedure TForm1.domail(Sender: TObject; fromname, fromadd, sub, toadd, thedocdone, theacc: string; body: widestring);
const
  olMailItem = 0;
var
  Outlook: OLEVariant;
  vmailitem: variant;
  Attachment: TIdAttachment;
  savetofol: string;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vmailitem := Outlook.CreateItem(olMailItem);
  vmailitem.Recipients.Add(toadd);
  vmailitem.ReplyRecipients.Add('[email protected]');
  vmailitem.Subject := sub;
  vmailitem.body := 'SENT: ' + formatdatetime('dd mmmm yyyy - hh:nn am/pm', now) + #13#10 + body;
  vmailitem.ReadReceiptRequested := true;
  vmailitem.importance := 2;
  if thedocdone <> 'NIL' then
  begin
    vmailitem.Attachments.Add(thedocdone, 1, 1, 'SBSA_' + theacc);
    if ansipos('string1', lowercase(toadd)) <> 0 then
    begin
      vmailitem.Attachments.Add('*manual path', 1, 2, '*manual name');
      Memo1.Lines.Add('Adding consent letter to mail...');
    end;
    if ansipos('string2', lowercase(toadd)) <> 0 then
    begin
      vmailitem.Attachments.Add('*manual path', 1, 2, '*manual name');
      Memo1.Lines.Add('Adding consent letter to mail...');
    end;
    savetofol := extractfilepath(thedocdone) + copy(extractfilename(thedocdone), 0, length(extractfilename(thedocdone)) - 8);
    vmailitem.saveas(savetofol + '_eml.doc', 4); // ^ +'.doc'
  end;
  // vmailitem.clear;
  vmailitem.Send;
  Outlook := Unassigned;
end;

With the above piece of code i am able to attach to outlook and send out an email and attach an attachment to that mail...

My problem is that IT WONT attach the 2nd attachment... ??? i have tried every which way using different methods to do this but i just cannot get the 2nd attachment to attach to the mail...

Please help...

Upvotes: 3

Views: 6445

Answers (1)

Troz
Troz

Reputation: 97

See Attachments Object (Outlook):

To ensure consistent results, always save an item before adding or removing objects in the Attachments collection of the item.

Wrong:

vmailitem.Attachments.Add();
vmailitem.Attachments.Add();
vmailitem.Attachments.Add();

Right:

vmailitem.Attachments.Add();
vmailitem.save;
vmailitem.Attachments.Add();
vmailitem.save;
vmailitem.Attachments.Add();
vmailitem.save;

Upvotes: 2

Related Questions