Comment Envoyer et recevoir des mails en VBS
Bonjour,
Je suis resté très général dans l'intitulé pour que tout sur l'envoie et la réception de mails soit limité à ce post.
Pour envoyer un mail:
Voici une fonction Email avec les paramètres de bases lAdresse_email, lObjet_email, lserveur, ltexttotal (détail en fin de programme), pour envoyer la fonction rien de plus simple, copier le text en bleu et ensuite dans votre programme principal ou juste en dessous vous pouvez appeler la fonction comme suit:
Email tutu@gmail.com, "le mail de tutu", smtp.free.fr, "Voici comment envoyer simplement un mail"
Code:
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
| 'Fonction d'envoie du mail
Function Email(lAdresse_email, lObjet_email, lserveur, ltexttotal)
'Envoie du mail
With CreateObject("CDO.Message")
.From="toto@gmail.com" ' ici peut importe que l'email existe ou pas
.To = lAdresse_email 'Ici l'adresse de destination du mail passé en paramètres
' .CC="CopieMail@Copiemail.com" ' si tu desires mettre une personne en copie
.Subject = lObjet_email 'objet du mail
.TextBody = ltexttotal ' le texte qui doit être contenu dans le mail
' .AddAttachment() ' fichier attaché mais j'ai pas encore testé
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = lserveur 'exemple: smtp.free.fr
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'numéro du port du serveur d'envoie du mail
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
msgbox "le mail n'a pas pu être envoyé"
Else
msgbox "mail bien envoyé"
End If
On Error GoTo 0 '
End With
End Function |
les DETAILS
lAdresse_email: adresse de la personne a qui on désire envoyer le mail
lObjet_email: objet du mail
lserveur : nom du serveur d'envoie du mail exemple smtp.gmail.com
ltexttotal : contenu du mail
Vous pouvez rajouter From="toto@gmail.com", CC="CopieMail@Copiemail.com" et AddAttachment()
Pensez à les mettre en l'entête de la fonction pour le passage par paramètres.
Maintenant pour la reception, ben j'ai rien trouvé de simple et de GRATUIT alors à vos idées, merci:ccool:
J'ai une suggestion avec un passage type Outlook l'idée et de passer par un webmail, pas de Exchange ou Outlook:roll:
