[Delphi] Mail client

[majornono]

Heeft er iemand ervaring met het maken van een eenvoudige mailclient in Delphi die gebruik maakt van de Indy component suite?

Ik heb er zelf ook een gemaakt, voor mijn oma van 86 . Gewone tekst email gaat prima, maar html email is erg lastig. Heb deze met behulp van het voorbeeld van Indy wel uitgewerkt, maar soms krijgt ze geen tekst te zien. Ik denk dat dit iets te maken heeft met bepaalde andere mailclients, maar zeker weten doe ik het niet.

Om de html uit het bericht te filteren, heb ik de volgende code:

code:

 if Pos ('text/plain', Msg.ContentType) > 0 //dan plaintext, gewoon vullen dus.
    then begin
       mBody.Text := Msg.Body.Text;
       mBody.Visible := true;
       htmlLite.Visible := false;
    end;

    //en nu is het html, dit werkt NIET altijd
    if Pos ('multipart', Msg.ContentType) > 0
    then begin
         for iCounter := 0 to Pred (Msg.MessageParts.Count)
         do begin
            if Msg.MessageParts.Items[iCounter] is TIdText
            then begin //de tekst is gevonden, voeg toe aan html Lite component
               htmlLite.LoadStrings(TIdText(Msg.MessageParts.Items[iCounter]).Body);
               mBody.Visible := false;
               htmlLite.Visible := true;
            end;
         end;
      end;

Heeft iemand een idee wat ik vergeet?

btw, ik heb de Form naam + .(punt) weggelaten, dat leest makkelijker.

[MisterE]

hmmm, check anders Phoenix Mail, is een open source delphi project. Weet neet of ie die componenten gebruikt, maar misschien kun je er wel wat uit jatten

www.sourceforge.net

[SiHiDa]

Probeer eens de ICS-componenten.

http://users.swing.be/francois.piette/indexuk.htm

[majornono]

Op donderdag 04 juli 2002 20:00 schreef SiHiDa het volgende:
Probeer eens de ICS-componenten.

http://users.swing.be/francois.piette/indexuk.htm

Sorry. Ik ben nu al te ver gevorderd, om nu nog over te stappen op een andere suite .

Iemand anders geen ervaring met Indy? Deze wordt standaard met Delphi meegeleverd...

[Delphi32]

Ik heb even zitten kijken en ik kan zo snel niets raars in jouw code ontdekken. Dus ik zou zeggen, ga de html mail die wel goed gaat, eens vergelijken met die waarin het fout gaat. Kijken of er verschillen zitten in de headers enzo. Enne, weet je zeker dat het hele bericht reeds ontvangen is voordat jouw procedure wordt aangeroepen? Misschien is het bericht nog 'onderweg' en probeer jij het alvast weer te geven...
Zomaar wat gedachten, hoop dat je er wat mee kan

[majornono]

Op vrijdag 05 juli 2002 00:27 schreef Delphi32 het volgende:
Ik heb even zitten kijken en ik kan zo snel niets raars in jouw code ontdekken. Dus ik zou zeggen, ga de html mail die wel goed gaat, eens vergelijken met die waarin het fout gaat. Kijken of er verschillen zitten in de headers enzo.

Ik ga het proberen, maar dat is lastig. het is mij nl. nog nooit gebeurd

Enne, weet je zeker dat het hele bericht reeds ontvangen is voordat jouw procedure wordt aangeroepen? Misschien is het bericht nog 'onderweg' en probeer jij het alvast weer te geven...

Ik heb ze eerst opgeslagen op schijf nadat ze zijn gedownload. Zit een check op, dus dat kan het ook niet zijn.

Maar in ieder geval bedankt voor de eerste tip,ga oma bellen