1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
| /**********************************************************************
*
* name : EnvoyerMailComplet
*
* fonction : Envoie un mail à un destinatiare, em prenant en paramètre tous les éléments nécessaires
*
* Entrées :
* - host : AnsiString, host smtp (localhost par défaut)
* - port : inst, port du serveur smtp (par défaut =25=
* - exp : AnsiString, adresse mail de l'expeditaire
* - des : AnsiString, adresse mail du destinaire
* - id : AnsiString, identifiant (sans importance)
* - sujet: AnsiString, sujet du mail
* - body : AnsiString, Corps du message
* - nameExp : AnsiString, nom de l'expediataire (nom qui sera affiché dans la boite du destinataire)
* Sorties :
*
* Comment : Fonctionne si le serveur SMTP Free Serveur Smtp est installé
* et configuré en tant qu'utilisateur localhost. Utilise le composant
* TSMTP
**********************************************************************/
int __fastcall TPingServConf::EnvoyerMailComplet(AnsiString host, int port, AnsiString exp, AnsiString dest,
AnsiString id, AnsiString sujet, AnsiString body, AnsiString nameExp)
{
//-- Si tous les attributs SMTP ont été rempli, on peut envoyer un mail --//
if (isSmtpOk == TRUE)
{
try
{
NMSMTP1->Host = host;
NMSMTP1->Port = port;
NMSMTP1->UserID = id;
NMSMTP1->Connect();
NMSMTP1->PostMessage->FromAddress = exp;
NMSMTP1->PostMessage->FromName = nameExp;
NMSMTP1->PostMessage->Subject = sujet;
NMSMTP1->PostMessage->ToAddress->Add(dest);
NMSMTP1->PostMessage->Body->Text =body;
NMSMTP1->SendMail();
NMSMTP1->Disconnect();
}
catch (ESockError *eSockError)
{
stBar->SimpleText = "Enregistrer vos paramètres SMTP";
ShowMessage("Aucun paramètre SMTP défini");
}
catch(EConvertError *eConvertError) {
ShowMessage("Erreur SMTP");
}
catch (EAbortError *eAbortError) {
ShowMessage("Erreur SMTP");
}
catch (ERangeError *eRangeError) {
ShowMessage("Erreur SMTP");
}
}
else
{
stBar->SimpleText = "Enregistrer vos paramètres SMTP";
ShowMessage("Aucun paramètre SMTP défini");
}
return TRUE;
} |
Partager