Discussion :

[Latimer]

Bonjour à tous!!!!!

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



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

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

[patricktoulon]

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

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]

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:



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]

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

[SfJ5Rpw8]

..
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"