Const cdoSendUsingPickup = 1->Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2->Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0->Do not authenticate
Const cdoBasic = 1->basic (clear-text) authentication
Const cdoNTLM = 2->NTLM
Set objMessage = CreateObject(CDO.Message)
objMessage.Subject = Hier Betreff eingeben
objMessage.From = Hier Absender Name eingeben <Hier Absender E-Mail-Adresse eingeben>
objMessage.To = Hier Empfänger E-Mail-Adresse eingeben
objMessage.TextBody = Hier Text eingeben & vbCRLF & Hier Text eingeben.
'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/sendusing[/url]) = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]) = Hier einen SMTP Server eingeben
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[/url]) = cdoBasic
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/sendusername[/url]) = Hier den Benutzername des SMTP Servers eingeben
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/sendpassword[/url]) = Hier das Passwort des SMTP Servers eingeben
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/url]) = 25
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/smtpusessl[/url]) = False
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
([url]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[/url]) = 60
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send