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"
les DETAILS
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
J'ai une suggestion avec un passage type Outlook l'idée et de passer par un webmail, pas de Exchange ou Outlook
Partager