Attachements mit/über Outlook versenden. Die Zweite....

[tommeier]

Hallo,
Ich versende, in meinem Programm, E-Mails über Outlook.

Dieser Eintrag hab mir sehr geholfen, läuft und schön is.

(http://www.delphipraxis.net/135428-e...versenden.html)

Aber jetzt möchte ich gern einen Anhang mit dranhängen, der nicht aus einer Datei kommt,
sondern aus einem Memo Textfeld herkommen.

Leider will/darf ich keine Zwischendatei erstellen. (Auf der Festplatte nicht möglich, keine Rechte bzw. will ich auch nicht.)

Gib es eine Möglichkeit den Text aus dem Memo Textfeld als Anhang zu
versenden? (Stream , Virtuelles file ,.....)

Für eine Lösung, wäre ich sehr dankbar.

MfG Tom Noppers


Alter Code von "mannewolff"


procedure SendOutlookMail;
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('[e-mail]');
vMailItem.Subject := 'test email';
vMailItem.Body := 'This is a test';
vMailItem.Attachments.Add('C:\temp\sample.txt');
vMailItem.Send;

VarClear(Outlook);