|
Dobrý den, měl bych zde jeden dotaz na problem který mi nejak nejde rozkousknout. Mam databazy v MS Access a chtel bych po klinknutí na tlačítko odeslat email. Na odeslaní emailu mám tuto funkci v class module:
Public Function send_email()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Update
End With
' build email parts
With cdomsg
.To = "[email protected]"
.From = "[email protected]"
.Subject = "the email subject"
.TextBody = "the full message body goes here. you may want to create a variable to hold the text"
.send
End With
Set cdomsg = Nothing
End Function
Po klinknutí na tlačítko volám funkci takto:
Private Sub btnSend_Click()
Dim send As New SendMail
With send.send_email
End With
End Sub
Problém je v tom, že po klinknutí mě vyskočí hláška: Compile error: Variable not defined Popravdě nevím co mě chybí nadefinovat a jak, mohl by mi někdo pomoci?
|