Bonjour,
j'utilise ce code pour envoyer des mails :
Public Sub EnvoieMailGoogle()
Dim mMessage As Object
Dim mConfig As Object
Dim mSch
Set mConfig = CreateObject("CDO.Configuration")
'mConfig.Load -1
Set mSch = mConfig.Fields
With mSch
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'En principe, 25 fonctionne avec tout les serveurs.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'Si le serveur demande une authentification,
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*******@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
'Si votre serveur demande une connexion sûre (SSL)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With
Set mMessage = CreateObject("CDO.Message")
With mMessage
Set .Configuration = mConfig
.To = "****@gmail.com"
.From = "****@gmail.com"
.subject = "Le sujet du mail"
.TextBody = "Ce mail vous est envoyer pour tester la macros." 'vbCrLf = retour a la ligne
'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
'.AddAttachment 'Chemin et nom complet du fichier à joindre
'Envoie du mail
.Send
End With
'Libère les ressources
Set mMessage = Nothing
Set mConfig = Nothing
Set mSch = Nothing
'Message de confirmation d'envoie
MsgBox "Le mail a été envoyer"
End Sub
mon problème concerne le :
.TextBody = "Ce mail vous est envoyer pour tester la macros."
j'aimerais envoyé une plage de ma feuille du coup j'ai mis :
.TextBody = MaFeuille.Range("A1:O30").Select
je recois bien le mail avec comme corps de text : TRUE
comment faire pour envoyer la plage de A1:O30
merci pour votre aide