hallo, wie kann ich unter delphi/
indy nachrichten verschicken, die ein Bitmap enthalten und direkt beim Aufruf unter Outlook angezeigt werden?
[delphi]procedure TDataModule1.SendMail(const AFrom, ATo, ASubject, AMsg,
AServer: string);
begin
with mesgMessage do begin
Clear;
From.Text := AFrom;
Recipients.Add.Text := ATo;
Subject := ASubject;
Body.Text := AMsg;
// mesgMessage.Body.LoadFromFile('C:\Temp\lab.html');
TIdAttachment.Create(mesgMessage.MessageParts, 'C:\Temp\LAB.html');
TIdAttachment.Create(mesgMessage.MessageParts, 'C:\Temp\barcode.bmp');
end;
{ TODO : wieder unkommentieren }
with smtpSendMail do begin
Host := AServer;
AuthenticationType := atLogin;
Username := 'pc1';
Password := 'michael3';
Connect; try
Send(mesgMessage);
finally Disconnect; end;
end;
formSendMail.Completed;
end;
so sieht heute die LAB.html aus!
[
html]
<!DOCTYPE
HTML PUBLIC "-//
W3C//DTD
HTML 4.01 Transitional//EN">
<
HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/
html;charset=ISO-8859-1">
<TITLE> Lieferabruf </TITLE>
</HEAD>
<body text="#000000" bgcolor="#ffffff">
[img]file:///barcode.bmp[/img]
Sehr geehrte Damen und Herren,
anbei übersenden wir folgenden KANBAN Abruf:
Lieferant : KS-Lager
Artikel : 01.11.5100
Bezeichnung : VM Befestigungssatz 505
Barcode Nummer : 4019443128932
Stückzahl : 400
Ladungsträger : SK2 B1
Kunde : KS-Montage
Anlieferadresse : Regal Platten sonstiges
</BODY>
</
HTML>