Lazarus 2.02 ---- Synapse 40
Hallo,
Ik heb een programma ontwikkeld waarmee de gebruiker de mogelijkheid heeft om al dan niet een crash-rapport
te versturen naar mijzelf toe.
Daar heb ik Synapse voor gebruikt.
Ik roep deze functie hiervoor aan :
function SendTo(const MailFrom, MailTo, Subject, SMTPHost: string; const MailData: TStrings): Boolean;
Werkte overigens uitstekend. SMTP poort = 25
Code:
Uses smtpsend;
Var B : Boolean;
begin
B:=SendTo('mijn emailadres,'email van de verzender','subject','smtp. servernaam',Memo1.Lines);
If B = True then ShowMessage(' mail is verstuurd') else ShowMessage(' mail is niet verstuurd');
end;
Maar ondertussen hebben sommige internet-aanbieders geen SMTP server meer, en daarom kan ik deze functie niet meer benutten.
Ik probeer daarom onderstaande functie te gebruiken.
function SendToEx(const MailFrom, MailTo, Subject, SMTPHost: string; const MailData: TStrings; const Username, Password: string): Boolean;
Mijn website staat gehost bij one.com die hun eigen SMTP server hebben met deze parameters :
SMTP : send.one.com
poort : 465 + SSL/TLS
Ik probeer dus de SMTP server van mijn hoster te gebruiken, ik heb daar ook een mailaccount met een wachtwoord
Code:
uses SMTPsend;
Var B : Boolean;
begin
B:=SendToEx(mijn emailadres,'email van de verzender','Subject','send.one.com:465',memo1.lines,'info@blabla.eu','paswoord');
if B = True then ShowMessage('mail is verstuurd') else ShowMessage('mail is niet verstuurd');
end;
Maar helaas werkt de code niet, de mail wordt niet verstuurd. Voorbeelden zijn op het net erg schaars. Daarom deze vraag :
Wat is fout in de code ? Is de code volledig ? Dank voor jullie hulp.
Bookmarks