Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
DoCmd.SendObject acSendReport, "testrapport", acFormatPDF, mailadres, , , "test bericht", "Dit is een mail"
Sub SendEmailUsingGmail()
Dim NewMail As CDO.Message
Set NewMail = New CDO.Message
'Enable SSL Authentication
With NewMail
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'Make SMTP authentication Enabled=true (1)
.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
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Set your credentials of your Gmail Account
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jouwnaam@gmail.com"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"
'Update the configuration fields
.Configuration.Fields.Update
'Set All Email Properties
.Subject = "Test Mail from LearnExcelMacro.com"
.From = "jouwnaam@gmail.com"
.To = "aanwie@gmail.com;info@learnexcelmacro.com"
.CC = "nogiemand@gmail.com"
.BCC = ""
.textbody = ""
.send
End With
MsgBox ("Mail is verstuurd ...")
'Set the NewMail Variable to Nothing
Set NewMail = Nothing
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.