Function GetSMTPServerConfig() As Object
Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object
Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = "mon_adresse_gmail.com" 'renseigner votre adresse
.Item(cdoSendPassword) = "mon_mot_de_passe_gmail" 'renseigner votre mot de passe
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function
Public Sub SendMail22()
Dim Cdo_Message As New CDO.Message
Set Cdo_Message.Configuration = GetSMTPServerConfig()
With Cdo_Message
.To = Sheets("Mail").Range("C2").Text
.From = Sheets("Mail").Range("C2").Text
.Subject = "Information rendez-vous"
.TextBody = "information dans le texte " & Sheets("Mail").Range("D2").Text & " le " & Sheets("Mail").Range("e2").Text & " " & " " & "à " & Sheets("Mail").Range("f2").Text
.Send
End With
Set Cdo_Message = Nothing
MsgBox ("mail envoyé,vous avez la possibilité de supprimer cette boite de dialogue dans le code vba")
End Sub
Merci je vais le tester.re farusz, bonsoir lolote83 bonsoir le fil
une solution simple sans logiciel de messagerie avec l'extension CDO à installer dans le classeur excel, et une boite gmail.
Regarde la pièce jointe 1071919
une code vba dans un module avec une fonction, remplacer adresse de messagerie par la vôtre, mais surtout une adresses gmail et le mot de passe de gmail
VB:Function GetSMTPServerConfig() As Object Dim Cdo_Config As New CDO.Configuration Dim Cdo_Fields As Object Set Cdo_Fields = Cdo_Config.Fields With Cdo_Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp.gmail.com" .Item(cdoSMTPServerPort) = 465 .Item(cdoSendUserName) = "mon_adresse_gmail.com" 'renseigner votre adresse .Item(cdoSendPassword) = "mon_mot_de_passe_gmail" 'renseigner votre mot de passe .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSMTPUseSSL) = True .Update End With Set GetSMTPServerConfig = Cdo_Config Set Cdo_Config = Nothing Set Cdo_Fields = Nothing End Function Public Sub SendMail22() Dim Cdo_Message As New CDO.Message Set Cdo_Message.Configuration = GetSMTPServerConfig() With Cdo_Message .To = Sheets("Mail").Range("C2").Text .From = Sheets("Mail").Range("C2").Text .Subject = "Information rendez-vous" .TextBody = "information dans le texte " & Sheets("Mail").Range("D2").Text & " le " & Sheets("Mail").Range("e2").Text & " " & " " & "à " & Sheets("Mail").Range("f2").Text .Send End With Set Cdo_Message = Nothing MsgBox ("mail envoyé,vous avez la possibilité de supprimer cette boite de dialogue dans le code vba") End Sub
dans l'exemple les cellules de la deuxième ligne sont concernées pour l'envoie d'un mail.
par une boucle adapter cette macro pour l'envoie à plusieurs destinataires.
cordialement
galougalou
Bonjour,re farusz bonjour le fil
une petite boucle avec une simplification de la saisie dans la feuille mail
une deuxième feuille liste les adresses mails des destinataires. faire une saisie dans la colonne a sans sauter de lignes.
cordialement
galougalou