Results 1 to 4 of 4

Thread: synapse mail

  1. #1

    synapse mail

    ik probeer een html mail te versturen vanuit mijn programma.
    ik werk sinds kort in lazarus(turbo delphi 2006 liet zich niet installeren op windows8) en moet nu op een andere manier gaan mailen dan met cdo.
    ik dacht het gevonden te hebben met smtp via synapse maar het lukt niet helemaal.
    ik krijg de mail binnen maar met heel veel header en dan pas de mail.



    Code:
    function Send_Mail(Username, Password, From, MailTo,CC,Subject, attachment,Server,Port : string ;bodytext, htmbodytext:tstrings): Boolean;
    
    var part: TMimePart;
    MM : TMimeMess;
    data:tstringlist;
    tmp: TMemoryStream;
    Begin
    data:=TStringList.Create;
    data.Add('This is a text');
    mm:=TMIMEMess.Create;
    mm.header.from:=From;
    mm.header.ToList.add(mailto);
    mm.header.subject:=subject;
    Part := mm.AddPartMultipart('Mixed', nil);
    mm.AddPartText(bodytext, Part);
    tmp := TMemoryStream.Create;
    try
    tmp.LoadFromFile('C:\attachment.zip');
    mm.AddPartBinary(tmp, 'attachment.zip',part);
    finally
    tmp.Free;
    end;
    mm.EncodeMessage;
    SendToEx(From,Mailto, 'Hey','smtp.gmail.com'+':'+port, MM.Lines, username,password);
    MM.Free;
    
    end;
    help waar gaat t fout (behalve dat mijn kennis te kort schiet )

  2. #2
    heb ik de vraag verkeerd gesteld of is dit gewoon lastig

  3. #3
    Fornicatorus Formicidae VideoRipper's Avatar
    Join Date
    Mar 2005
    Location
    Vicus Saltus Orientalem
    Posts
    5,708
    Quote Originally Posted by gertwillem View Post
    heb ik de vraag verkeerd gesteld of is dit gewoon lastig
    Ik denk dat de meesten hetzelfde probleem als jij hebben:
    Quote Originally Posted by gertwillem View Post
    (behalve dat mijn kennis te kort schiet )


    Ik zou gewoon bij het begin beginnen.

    Wat gebeurt er als je een kale e-mail verzend, dus zonder attachments?
    Krijg je dan ook de headers te zien?

    Als dat goed gaat, dan kun je in de volgende stap dingen gaat toevoegen totdat
    het fout gaat.

    Greetz,

    Peter.
    TMemoryLeak.Create(Nil);

  4. #4
    mov rax,marcov; push rax marcov's Avatar
    Join Date
    Apr 2004
    Location
    Ehv, Nl
    Posts
    10,357
    Is de mm.EncodeMessage; misschien overbodig, en stop die een email nog eens in een mime wrapper?

    De mail ziet er overigens correct uit voor een mime beest (en je geeft zelf aan dat ie mixed moet zijn)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •