Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Ararat Synapse Mailanhang (https://www.delphipraxis.net/171572-ararat-synapse-mailanhang.html)

khh 13. Nov 2012 09:33

Ararat Synapse Mailanhang
 
Hallo zusammen,
kann ich per SendToEX aus smptsend irgendwie Mailanhänge und / oder formatierten Text verschicken?


Ich suche mir grad nen Wolf :-(

ich danke euch

Gruss KHH

CCRDude 13. Nov 2012 09:38

AW: Ararat Synapse Mailanhang
 
Ja :)

Nimmst ein TMimeMess und erstellst Deine Mail, darin fügst MIME-Parts hinzu, rufst EncodeMessage auf und versendest dann den Inhalt dessen Property Lines.

khh 13. Nov 2012 09:40

AW: Ararat Synapse Mailanhang
 
Zitat:

Zitat von CCRDude (Beitrag 1190946)
Ja :)

Nimmst ein TMimeMess und erstellst Deine Mail, darin fügst MIME-Parts hinzu, rufst EncodeMessage auf und versendest dann den Inhalt dessen Property Lines.

Danke für die schnelle Antwort:-)

Gibts dazu irgendwo ein Beispiel, oder muss ich das selbst zusammenbauen ;-)

EDIT: hab was gefunden, mal testen obs funktioniert, ich danke dir

khh 13. Nov 2012 10:09

AW: Ararat Synapse Mailanhang
 
alsoo
mit folgendem codeschnipsel bekomme ich zwar die Mail verschickt, aber das Attachement wird wohl binär im Text angezeigt :-(

was ist da noch falsch?

Code:

 data:=TStringList.Create;
 data.Add('This is a text');
 mm:=TMIMEMess.Create;
 mm.header.from:='gl@hwd-world.de';
 mm.header.ToList.add('vertrieb@hwd-world.de');
 mm.header.subject:='A test';
 Part := mm.AddPartMultipart('Mixed', nil);
 mm.AddPartText(data, Part);
 tmp := TMemoryStream.Create;
 try
   tmp.LoadFromFile('C:\temp\bild1.jpg');
   mm.AddPartBinary(tmp, 'bild1.jpg',part);
 finally
   tmp.Free;
 end;
 mm.EncodeMessage;
 SendToEx('me@email.com','me@email.com', 'Hey','smtp.email.com', MM.Lines, '','');

Code:
This is a text
--00D00DE0_4C7AE507_Synapse_boundary
Content-type: image/JPEG; name="bild1.jpg"
Content-Transfer-Encoding: Base64
Content-Disposition: attachment; FileName="bild1.jpg"
Content-Description: Attached file: bild1.jpg

/9j/4AAQSkZJRgABAgAAAQABAAD//gA2SW50ZWwoUikgSVBQIEpQRUcgZW5jb2RlciBbNy4w
LjEwNDFdIC0gSnVsIDE5IDIwMTE7AP/bAEMAAgEBAQEBAgEBAQICAgICBAMCAgICBQQEAwQG
BQYGBgUGBgYHCQgGBwkHBgYICwgJCgoKCgoGCAsMCwoMCQoKCv/bAEMBAgICAgICBQMDBQoH
BgcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCv/A
ABEIBgAIAAMAIgABEQECEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1
EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKC
usw ......

khh 13. Nov 2012 10:23

AW: Ararat Synapse Mailanhang
 
GELÖST!

anstatt SendToEx muss SendToRAW verwendet werden :-D

Ich danke gewaltig!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz