Accueil > Manip’s > Delphi > Messagerie > Envoyer un Email avec Delphi

Envoyer un Email avec Delphi

Indy

lundi 7 mai 2012, par bluegyn_spip

Nous aurons besoin de 2 composants :

Un client de Messagerie
Un gestionnaire de message

La programmation se résume à argumenter les champs de ces 2 composants

Le Client pour la connexion au serveur SMTP
Le Message pour les caractéristiques du Courriel

ONGLET INDY-CLIENT

COMPOSANT	TidSMTP
Nommé	SMTP

La Grosse Boite à Lettres à 4 pattes Bleue

ONGLET INDY-DIVERS

COMPOSANT	TidMESSAGE
Nommé	MailMessage

Le parchemin déroulé

Pour envoyer un message il suffit de :

Paramétrer le SMTP
Paramétrer le Message
Lancer la connexion

PARAMETRES SMTP

SMTP.Host := 'smtp.orange.fr'; 
SMTP.Port := 25;

PARAMETRES MESSAGE

MailMessage.From.Address := 'bluegyn@monfai.fr';
MailMessage.Recipients.EMailAddresses := 'papa@sonfai.fr,maman@sonfai.fr';
MailMessage.Subject := 'Mon premier message';
MailMessage.Body.Text := 'Bonjour le monde !';

if FileExists( 'c:\images\maphoto.jpg') then
    TIdAttachment.Create(MailMessage.MessageParts, 'c:\images\maphoto.jpg');

LANCER LA CONNEXION

try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      ShowMessage('ERREUR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

TRUC

Envoyer un code HTML

Si le Body est écrit en HTML , par défaut idMessage envoie le source en texte brut en affichant telles qu’elles, les balises
Pour convertir le message en HTML il faut argumenter les propriétés de IdMessage

Content Type

Text/Html

Source ABOUT.DELPHI

SOUS DELPHI XE3
Remplacer

TIdAttachment
Par TIdAttachmentFile

Déclarer IdAttachmentFile dans Uses.

Envoyer un Email avec Delphi

ONGLET INDY-CLIENT

ONGLET INDY-DIVERS

LANCER LA CONNEXION

TRUC

Manip’s

Dans la même rubrique