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. 8-)

(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. :thumb:

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);

[hoika]

Hallo,
laut
https://msdn.microsoft.com/de-de/vba...method-outlook

kann es auch ein Outlook-Element sein, in diesem Fall als ein Attachment-Objekt.
https://msdn.microsoft.com/de-de/vba...object-outlook

Hier ist sowas ähnliches on .Net

https://social.msdn.microsoft.com/Fo...rum=outlookdev

Diese Zeile ist mit die interessanteste
Microsoft.Office.Interop.Outlook.Attachment Attach = new Microsoft.Office.Interop.Outlook.Attachment(ms, "example.txt", "text/plain");
Das "example.txt" ist der beschreibende Text des Anhanges, die Datei selber steht schon im MemoryStream (ms)

[tommeier]

Heiko, leider bringt mich das nicht weiter..... :|

Das Beispiel ist für VBA, ich finde kein richtigen Ansatzpunkt um es nach Delphi(X10) umzubauen.

Das muß doch schon jemand hier im Forum gemacht haben?

Bin auch für andere Lösungen/Komponenten offen. :roll:

MfG Tom

[Delphi.Narium]

Da ist beschrieben, wie man Attachments aus Outlook in 'nen Stream bekommt, ohne sie erst auf die Platte zu schreiben.

https://www.entwickler-ecke.de/topic..._110770,0.html

Eventuell ist das ja ein Ansatz, um den umgekehrten Weg umsetzen zu können.