envoi de mail avec une macro

**Latimer** · 30/07/2015, 22h20

Bonjour à tous!!!!!

Voila je j’essaie d'envoyer des mail avec une macro via mon compte g mail mais je me heurte à cette erreur.

Nom : Capture.PNG
Affichages : 2085
Taille : 28,6 Ko

Nom : Capture.PNG
Affichages : 2085
Taille : 28,6 Ko

voici mon code:

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
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mygmail@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
' build email parts
With cdomsg
.To = "somebody@somedomain.com"
.From = "mygmail@gmail.com"
.Subject = "the email subject"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.Send
End With
    Set cdomsg = Nothing

L'erreur se situe au niveau du .send

Quelqu'un pourrai m'aider svp ? Je l'en remercie d'avance.

Invité · 31/07/2015, 07h55

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025

**patricktoulon** · 01/08/2015, 02h29

Bonjour

entre nous avec CDo je ne vois pas l'intereret de passer par le serveur smtp de gmail

meme si ta boite mail est chez eux
le serveur smtp de ton FAI suffit
chez moi SFR
fait l'essaie en changeant le serveur en rouge pour le tiens et met ton addresse meme a la place de ce qui est en bleu et regarde ta boite Mail

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
Sub test()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"
.Update
End With
' build email parts
With cdomsg
.To = "destinataire@hotmail.fr"
.From = "patosh@gmail.com"
.Subject = "essaie"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.Send
End With
    Set cdomsg = Nothing
End Sub

Invité · 01/08/2015, 11h34

Bonjour,
Moi je travail dans une petite boite qui utilise un compte entreprise chez Google; comme chaque adresse mail est payante, j'utilise un compte noreply chez gmail (gratuit) pour un automate d'envois de mails! Et ça marche très bien!

**Arendelle** · 03/08/2015, 21h40

Merci beaucoup pour vos réponse!!!

Je suis obligé d'utiliser le smtp de gmail car c'est un petit projet pour la ou je travail et nous utilisons des adresses emails chez gmail.

j'ai testé ton code:

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
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
Sub test()
 MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", ""
End Sub
Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)
' sub pour envoyer les mails
Dim msg
Dim Conf
Dim Config
Dim ess
Dim splitPj
Dim IsplitPj
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
Set Conf = CreateObject("CDO.Configuration") '  pour la configuration de l'envoi
Dim strHTML
 
Set Config = Conf.Fields
 
' Configuration des parametres d'envoi
'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With
 
 
'Configuration du message
'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1
 
With msg
    Set .Configuration = Conf
    .To = Dest
  .cc = DestEnCopy
    .FROM = Expediteur
    .Subject = Objet
'
 
    .HTMLBody = Body '"<p align=""center""><font face=""Verdana"" size=""1"" color=""#9224FF""><b><br><font face=""Comic Sans MS"" size=""5"" color=""#FF0000""></b><i>" & body & "</i></font> " 'E_mail.ZThtml.Text
            If Pj <> "" Then
        splitPj = Split(Pj & ";", ";")
 
        For IsplitPj = 0 To UBound(splitPj)
            If Trim("" & splitPj(IsplitPj)) <> "" Then
                .AddAttachment Trim("" & splitPj(IsplitPj))
            End If
        Next
 
    End If
    .Send 'envoi du message
 
End With
' reinitialisation des variables
Set msg = Nothing
Set Conf = Nothing
Set Config = Nothing
 
End Sub

Et j'ai une érreur que je n'arrive pas à corriger:

Nom : Capture2.PNG
Affichages : 1841
Taille : 20,9 Ko

EDIT: je crois que j'y suis presque car sur mon compte gmail( que j'utilise pour envoyer un mail avec le code) il a bloqué une tentative de connexion et sachant que c'était, je pense que je suis sur le bon chemin encore merci. Mais j'ai relancé et j'ai toujours l'erreur.

**patricktoulon** · 04/08/2015, 13h37

bonjour
si c'est au boulottu passe certainemet par un subrouteur voir un serveur local
il faut don parametre par le proxi et la bon courage

Invité · 04/08/2015, 13h54

Bonjour,

Envoyé par Google.fr

En général, les clients de messagerie configurent automatiquement les paramètres de connexion IMAP en fonction de votre compte. Nous vous conseillons toutefois de vérifier ci-dessous que ces derniers sont corrects.

Si votre client de messagerie ne figure pas dans la liste ci-dessous, les instructions qui suivent vous aideront à configurer la connexion IMAP. Si vous rencontrez des difficultés, nous vous conseillons de contacter le service d'assistance de votre client de messagerie.

Serveur de courrier entrant (IMAP) - SSL requis
imap.gmail.com
Port : 993
SSL requis : Oui
Serveur de courrier sortant (SMTP) - TLS requis
smtp.gmail.com
Port : 465 ou 587
SSL requis : Oui
Authentification requise : Oui
Utiliser des paramètres identiques à ceux du serveur de courrier entrant
Nom complet ou nom à afficher : [votre nom]
Nom du compte ou Nom d'utilisateur : votre adresse Gmail complète (nomutilisateur@gmail.com) Les utilisateurs Google Apps doivent indiquer leur nom d'utilisateur sous cette forme : nomutilisateur@votre_domaine.com
Adresse de messagerie : votre adresse Gmail complète (nomutilisateur@gmail.com). Les utilisateurs Google Apps doivent indiquer leur adresse e-mail sous cette forme : nomutilisateur@votre_domaine.com
Mot de passe : votre mot de passe Gmail
Si votre client n'accepte pas l'authentification SMTP, vous ne pourrez pas envoyer d'e-mails par l'intermédiaire de votre adresse Gmail.

En outre, si vous rencontrez des difficultés pour envoyer des e-mails alors que le chiffrement est activé pour SMTP dans votre client de messagerie, essayez de configurer votre serveur SMTP sur un autre port : 465 ou 587.

je me suis servis de ça pour configurer CDO (Avec smtp.googlemail.com, mais smtp.gmail.com marche) et ça marche très bien, j'ai un automate qui utilise ce code toutes les deux heures!

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
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
Sub test()
 MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", ""
End Sub
Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)
' sub pour envoyer les mails
Dim msg
Dim Conf
Dim Config
Dim ess
Dim splitPj
Dim IsplitPj
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
Set Conf = CreateObject("CDO.Configuration") '  pour la configuration de l'envoi
Dim strHTML
 
Set Config = Conf.Fields
 
' Configuration des parametres d'envoi
'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)
With Config
If Identify = True Then
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord
End If
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay
    .Update
 
End With
 
 
'Configuration du message
'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1
 
With msg
    Set .Configuration = Conf
    .To = Dest
  .cc = DestEnCopy
    .FROM = Expediteur
    .Subject = Objet
'
 
    .HTMLBody = Body '"<p align=""center""><font face=""Verdana"" size=""1"" color=""#9224FF""><b><br><font face=""Comic Sans MS"" size=""5"" color=""#FF0000""></b><i>" & body & "</i></font> " 'E_mail.ZThtml.Text
            If Pj <> "" Then
        splitPj = Split(Pj & ";", ";")
 
        For IsplitPj = 0 To UBound(splitPj)
            If Trim("" & splitPj(IsplitPj)) <> "" Then
                .AddAttachment Trim("" & splitPj(IsplitPj))
            End If
        Next
 
    End If
    .Send 'envoi du message
 
End With
' reinitialisation des variables
Set msg = Nothing
Set Conf = Nothing
Set Config = Nothing
 
End Sub

c'est la même configuration que Thunderbird, je t'invites à l’installer et configurer en automatique ton compte et de regarder en suite la configuration Smtp!

**patricktoulon** · 04/08/2015, 14h38

Bonjour durupt
et si au boulot ils passent par un proxy c'est walouh!!!

Invité · 04/08/2015, 14h46

Bonjour Patrick,
Je pense que c'est possible de configurer cdo de passer par un proxy mais je ne l'ai jamais fait!

C'est pour cela que je lui ai proposé de tester par Thunderbird!

Mais je doute car dans un poste précédant il déclares se faire remonter les bretelles par Google; et pas par le par feu!

**patricktoulon** · 04/08/2015, 14h52

oui c'est possible a ce qu'il parait faut il aussi que le serveur local eu été paramétré pour cela par defaut non

le mieux pour eviter de partir dans des tehories du complot

c'est de savoir si on peut identifier son fournisseur
j'ai integré ca dans mes app excel mail CDO

au cas ou je n'est pas de serveur ou erreur sur smtp ca lance ce test
je l'ai adapter avec un msgbox

celui ci devrait repondre a toutes tes questions ou pas

c'est ca qui est marrant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub je_suis_chez_qui()
    Dim i As Long, url As String
    url = "http://www.libellules.ch/ip.php"
    With CreateObject("internetexplorer.application")
        .navigate url
        Do: DoEvents: Loop Until .readystate = 4
        Set mesp = .document.getelementsbytagname("p")
        For i = 0 To mesp.Length - 1
            If InStr(mesp(i).innertext, "Fournisseur d'accès : ") > 0 Then mes = mesp(i).innertext & vbCrLf: Exit For
        Next
    End With
    MsgBox mes
End Sub

Mais je doute car dans un poste précédant il déclares se faire remonter les bretelles par Google; et pas par le par feu!

oui moi aussi j'ai des mails que google m'm'envoie

parce que des fois je me connecte a ma boite gmail avec (iphone(perso),android(boulot),PC chez moi ) donc ca les chagrine un peu va savoir pourquoi?

peut etre parce que c'est devenu quazi automatique tout ce qui ont android ont une boite gmail condition c'est obligatoire pour aller sur les playstores et autre plateforme de telechargement mobile

alors que le sufixe gmail existe depuis la nuit des temps

Invité · 04/08/2015, 16h06

oui moi aussi j'ai des mails que google m'm'envoie

ce qui tente à me faire dire que la requête est bien parvenu à Google si non le par feu se serrait manifesté!

**patricktoulon** · 04/08/2015, 16h13

oui c'est sur si google lui envoie des avertissement c'est que la requete leur a été parvenu

reste a savoir si elle est conforme ou pas

j'ai posté le test libellule le mieux comme je le dis c'est d'utiliser le serveur dU FAI

le teste libellule identifie ton FAI si c'est bon utiliser celui la un point c'est tout je ne vois pas l'interet de passer par le smtp de gmail

des macro cdo avec gmail on en trouve partout elles commence a dater un peu et je ne suis plus sur que c'est parametrable maintenant

donc serveur FAI point barre

moins de code
plus rapide
plus fiable

et rien n'empeche de mettre des adresses mails gmail dans les expediteurs ou destinataires ca n'a rien a voir avec le protocole
moi ce que j'en dis

exemple ici
je suis chez sfr

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
Sub test()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"
.Update
End With
' build email parts
With cdomsg
.To = "moi2@hotmail.fr"
.From = "patosh@gmail.com"
.Subject = "essaie"
.TextBody = "je m'envoie un mail tout seul j'ai pas d'amis "
.Send
End With
    Set cdomsg = Nothing
End Sub

resultat

Nom : Capture2.jpg
Affichages : 2027
Taille : 186,8 Ko

**SfJ5Rpw8** · 04/08/2015, 20h38

Envoyé par Arendelle

..
EDIT: je crois que j'y suis presque car sur mon compte gmail( que j'utilise pour envoyer un mail avec le code) il a bloqué une tentative de connexion et sachant que c'était, je pense que je suis sur le bon chemin encore merci. Mais j'ai relancé et j'ai toujours l'erreur.

Bonsoir,

sur ton compte google as tu activé: "Autoriser les applications moins sécurisées à accéder à votre compte" ?
en activant cela ton code fonctionne... sans message "Expéditeur suspect"

envoi de mail avec une macro

Macros et VBA Excel

Discussions similaires

Partager

Partager