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
| Public Sub EnvoiMail_Click()
'Pour prospection, Création et Envoie par mail du document PDF créé par l'autre sous-programme
'Avant d'envoyer des mails, il faut autoriser votre envoie sur gmail: <a href="https://www.google.com/settings/security/lesssecureapps" target="_blank">https://www.google.com/settings/security/lesssecureapps</a> ; Cochez la case "Activer".
'Ajout référence Microsoft CDO WINDOWS FOR 2000 avec Outils > Références dans l'éditeur.
Dim cdo_msg As New CDO.Message
Dim adresse1
adresse1 = Range("L6").Value
Dim strbody As String
strbody = "Bonjour à vous," & vbNewLine & vbNewLine & _
"Voici les résultats du diagnostic que vous avez rempli." & vbNewLine & _
"Je me tiens à votre disposition pour en discuter si vous le souhaitez." & vbNewLine & _
"A très vite et que la Confiance soit avec vous..." & vbNewLine & vbNewLine & _
"Eric" & vbNewLine & _
"www.blog-de-la-confiance-en-soi.com"
'configuration message
cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
cdo_msg.Configuration.Fields(cdoSendUserName) = "xxx@gmail.com"
cdo_msg.Configuration.Fields(cdoSendPassword) = "yyyyy"
cdo_msg.Configuration.Fields.Update
'remplissage et envoi message
cdo_msg.To = adresse1
cdo_msg.From = "xxx@gmail.com"
cdo_msg.Subject = "Votre Bilan Confiance envoyé par le Blog de la Confiance en Soi"
cdo_msg.TextBody = strbody
cdo_msg.AddAttachment ("C:\Users\SYLVIE\Dropbox\_Sauvegarde Disque dur\Avec Sylvie\_Livres & Jeux de Cartes\_Auto Diagnostic Confiance en Soi\Autodiagnostic Confiance.pdf")
cdo_msg.Send
MsgBox "Votre message a bien été envoyé !"
'libération objet message
Set cdo_msg = Nothing
_______________________________________________________________________
End Sub
Public Sub PDF_Click()
Application.ActivePrinter = "PDF Architect 7 sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut From:=1, Copies:=1, _
ActivePrinter:="PDF Architect 7 sur Ne00:", Collate:=True
MsgBox "Votre fichier a bien été enregistré !"
End Sub |
Partager