Utilisez VB6 pour écrire des programmes permettant d'envoyer des e-mails. Vous avez le choix entre une variété de composants de messagerie, tels que MAPIMessages, CDONTS (NTSCollaborationDataObjects) inclus avec IIS4.0 et des logiciels de messagerie développés par de nombreux fabricants tiers. Cet article présente comment utiliser CDONTS pour développer un programme de messagerie sous VB.
1. Confirmez que le serveur SMTP est installé
Tout d'abord, vous devez confirmer que le serveur SMTP est installé sur le serveur IIS. Il s'agit de l'option installée par défaut lors de l'installation d'OptionPack. Si le serveur SMTP a été installé, il y aura un fichier nommé cdonts.dll dans le répertoire System32.
2. Le programme d'envoi d'e-mails le plus simple
Ce qui suit est le programme d'envoi d'e-mails le plus simple, qui envoie un e-mail avec le titre « Titre » et le contenu « Bonjour » de [email protected] à [email protected] :
PRivateSubcmdSendMail_Click()
DimobjmailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
[email protected]","[email protected]","Titre","Bonjour"
SetobjMail = rien
FinSub
3. Envoyez des pièces jointes aux e-mails
Si un fichier joint doit être envoyé avec l'e-mail, vous pouvez utiliser la méthode AttachFile de CDONTS :
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
AvecObjMail
.From="[email protected]"
.À="[email protected]"
.Sujet="Titre"
.Body="Bonjour"
.AttachFile"c:/document/sample.doc","sample.doc"
.Envoyer
FinPar
SetobjMail = rien
FinSub
4. Propriétés et méthodes couramment utilisées des composants CDONTS
Les propriétés et méthodes couramment utilisées des composants CDONTS sont répertoriées ci-dessous :
propriété:
Version : renvoie le numéro de version du composant CDONTS
MailFormat : format d'e-mail, type de texte 1 normal ; type 0-MIME.
Cc : définissez une ou plusieurs adresses e-mail pour référence
De : L’adresse de l’expéditeur de l’e-mail
À : l'adresse du destinataire de l'e-mail
Sujet : titre
Corps : contenu
BodyFormat : format de contenu, 1 texte normal ; 0 hypertexte
méthode:
AttachFile : Joindre un fichier
AttachURL : joindre une adresse
Envoyer : envoyer un e-mail
5.Envoyer un e-mail au format hypertexte
Vous avez sûrement vu de nombreux emails utilisant le format hypertexte, qui peuvent non seulement contenir des images, des sons, mais aussi embarquer des animations. Si vous envoyez un tel e-mail à votre ami, cela lui apportera certainement une surprise inattendue, car c'est quelque chose que les programmes d'envoi d'e-mails ordinaires ne peuvent pas faire. Ce qui suit utilise le composant CDONTS pour envoyer un email au format HTML, qui contient une image nommée sample.gif. Le programme est le suivant :
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
DimstrHTMLasString
StrHTML="〈html〉〈tête〉"
StrHTML=StrHTML "〈title〉Email〈/title〉〈/head〉 utilisant le format hypertexte
StrHTML=StrHTML "〈body〉〈p〉〈strong〉Exemple d'envoi d'e-mail à l'aide de CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉L'exemple ci-dessus a une image intégrée sample.gif〈/p〉"
StrHTML=StrHTML "〈/corps〉〈/html〉"
AvecObjMail
.From="[email protected]"
.À="[email protected]"
.Sujet="Titre"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif","sample.gif"
.FormatCorps=0
.FormatEmail=0
.Envoyer
FinPar
SetobjMail = rien
FinSub
À ce stade, je pense que vous avez dû découvrir une faille dans le traitement des e-mails SMTP. Le serveur SMTP reçoit votre message de sortie, mais ne vérifie pas le nom et l'adresse de l'expéditeur. Ceci est déterminé par le mécanisme d'envoi asynchrone de SMTP, mais quelqu'un peut l'utiliser avec des arrière-pensées pour se faire passer pour quelqu'un d'autre et envoyer des e-mails ! Cet article vous recommande fortement de ne pas l'essayer facilement. Une fois que votre FAI aura connaissance de votre comportement, votre compte sera très probablement supprimé immédiatement. ->