Cliquer sur "Vue" et puis "Code" pour passer en vue de code. Ajouter une procédure qui va envoyer un e-mail via un compte Gmail:
"Sous SendGmail ()
Réglez emailMsg = CreateObject ("CDO.Message")
Set config = CreateObject ("CDO.Configuration")
Set emailFields = config.Fields
sch = "https://schemas.Microsoft.com/cdo/configuration/"
emailFields.Item (sch & "sendusing") = 2
emailFields.Item (sch & "smtpserver") = "smtp.gmail.com"
emailFields.Item (sch & "SMTPServerPort") = 465
emailFields.Item (sch & "SMTPAuthenticate") = 1
«Changer la ligne suivante à votre adresse e-mail gmail
emailFields.Item (sch & "sendusername") = [email protected]
'Utiliser le mot de passe que vous utilisez pour vous connecter à votre compte de messagerie gmail
emailFields.Item (sch & "sendpassword") = Mypassword
emailFields.Item (sch & "SMTPUseSSL") = 1
emailsFields.Update
Avec emailMsg
.Pour = Pour «changer pour le destinataire (s) de l'e-mail
.De = [email protected] «changer ceci à votre adresse e-mail
.= Sujet "Envoi d'un email avec Gmail et VB6" 'Changer à votre ligne de sujet
.HTMLBody = "C'est un test." 'Changer cela pour le corps de l'e-mail
Réglez .Configuration = config
.Envoyer
End With
«Chambre de compensation pour tout prochain email
Réglez emailMsg = Nothing
Set config = Nothing
Réglez emailFields = Nothing
End Sub"