Macro envoie automatiquement en pdf par gmail

Re : Macro envoie automatiquement en pdf par gmail

PS : finalement le gmail fonctionne ... il faut juste ajouter la pièce jointe au mail envoyé par le bouton gmail.

Re : Macro envoie automatiquement en pdf par gmail

finalement j'ai juste ajouté .AddAttachment .. + le chemin du fichier et c'est bon ..

Re : Macro envoie automatiquement en pdf par gmail

Si dessous la macro pour envoyer un pdf à un destinataire... je peux faire comment pour ajouter une autre personne pour un autre pdf ? et un 3em, 4em ... .

Merci pour votre aide ...


Sub mail()

Dim NewMail As CDO.Message

Set NewMail = New CDO.Message

'Enable SSL Authentication
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Make SMTP authentication Enabled=true (1)

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port Details
'To get these details you can get on Settings Page of your Gmail Account

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your credentials of your Gmail Account

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx@xxxx.fr"

NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx"

'Update the configuration fields
NewMail.Configuration.Fields.Update

'Set All Email Properties

With NewMail
.Subject = "Test Mail"
.From = "xx@xxx.fr"
.To = "xx@xxx.fr"
.CC = "xx@xxx.fr"
.BCC = ""
.TextBody = "Bonjour," & vbCrLf & vbCrLf & "Vous ..." & vbCrLf & vbCrLf & "Cordialement," & vbCrLf & vbCrLf & "A."
.AddAttachment "C:\Users\142.pdf"

End With

NewMail.Send
MsgBox ("Mail has been Sent")

'Set the NewMail Variable to Nothing
Set NewMail = Nothing

End Sub