| |
Veteran
Beiträge: 145
 
| Hi Peterlein,
die einfachste Variante, die ich mit Verwendung von SMTP kenne ist :
Dim objMsg As Object
Set objMsg = CreateObject("CDO.Message")
With objMsg
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.1und1.com"
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "noreply@dokuwork.com"
.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Kennwort"
.configuration.Fields.Update
.FROM = "noreply@dokuwork.com"
.To = "sk@dokuwork.com"
.Subject = "Text Betreff"
'.HTMLBody = "Irgendwelcher Text"
.SEnd
End With
Set objMsg = Nothing
Viele Grüße aus Bensheim
Stephan | |
|
