Mail automatique avec Gmail
Mail automatique avec Gmail - VB/VBA/VBS - Programmation
Marsh Posté le 13-12-2007 à 09:33:13
Tu sais qu'une erreur a un numéro et un libellé accessibles par les propriétés .Number et .Description de ton objet Err ?
Ça pourrait t'aider.
Marsh Posté le 14-12-2007 à 23:58:41
Enfin pas si bien que ca 
Quand j'envoie un message avec une "grosse" pièce jointe (14 Mo), ça plante !
J'ai même supprimé la ligne :
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 90
Mais rien à faire 
Pourtant, quand j'utilise Thunderbird pour envoyer un message avec la même pièce jointe, cela passe très bien.
une idée ?
Sujets relatifs:
- Recup USERNAME + Envoi par mail (PJ)
- Configurer la fonction mail de appache (php.ini)
- Base de donnes, actualisation a distance automatique pour creer un jeu
- copie automatique de fichier
- Envoyer un mail
- [Resolu] Activer la fonction mail
- selection automatique formulaire
- Filter Automatique
- ptite aide en php pour une fonction mail
- Formulaire : envoi de mail et upload de fichier en un coup
Marsh Posté le 12-12-2007 à 22:21:40
Bonsoir à tous,
J'ai trouvé un code sur internet permettant d'envoyer un mail automatiquement en utilisant Gmail
On Error Resume Next
With CreateObject("CDO.Message" )
If Err Then
MsgBox "CDO non installé"
Else
.From="xxxx.xxxx@gmail.com"
.To="xxxx.xxxx@neuf.fr"
.Subject="Essai"
.HTMLBody="En piece jointe le fichier"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = cdoSendUsingPort
'
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.gmail.com"
'
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = cdoBasic
'
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "xxxx.xxxx@gmail.com"
'
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "12345678"
'
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 587
'
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = True
'
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 90
'
.Configuration.Fields.Update
.AddAttachment("D:\Mes Documents\1.jpg" )
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié"
End If
On Error GoTo 0
End With
Mon problème est que ce script marche très bien
Pourtant, à la fin de son exécution, j'ai le message d'erreur : "Le message n'a pas pu être expédié"
Pourriez vous m'expliquer d'où vient l'erreur, puisque il en trouve une ?
Message édité par didieraucun le 12-12-2007 à 22:24:03