envoi de mail avec une macro

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous!!!!!

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

Pièce jointe 184355

voici mon code:

Code:

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.

31/07/2015, 08h55
Invité

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

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:

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

01/08/2015, 12h34
Invité

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!

1 pièce(s) jointe(s)

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:

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:

Pièce jointe 184566

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.

04/08/2015, 14h37
patricktoulon

re

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

1 pièce(s) jointe(s)

Bonjour,

Citation:

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:

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 '" " & body & " " '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!

04/08/2015, 15h38
patricktoulon

re

Bonjour durupt
et si au boulot ils passent par un proxy c'est walouh!!!
04/08/2015, 15h46
Invité

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!

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 :mouarf:

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 :mouarf: c'est ca qui est marrant
Code:

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
Citation:

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

04/08/2015, 17h06
Invité

Citation:

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é!

1 pièce(s) jointe(s)

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:

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
Pièce jointe 184632

04/08/2015, 21h38
SfJ5Rpw8

Citation:

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"