Dim t_long As Long
Dim t_bool As Long
Dim t_result As Long
Dim t_String As String
Dim errMsg As String
Dim t_iErrorNumber As Long
 
t_String = "Hans Mustermann"
t_result = CibMailSetProperty("MailRecipientsFullName", ByVal t_String)
 
t_String = "Hans.Mustermann@gmx.de"
t_result = CibMailSetProperty("MailRecipientsMailBox", ByVal t_String)
 
t_String = "Klaus Meier"
t_result = CibMailSetProperty("MailSenderFullName", ByVal t_String)
 
t_String = "K-Meier@gmx.de"
t_result = CibMailSetProperty("MailSenderMailBox ", ByVal t_String)
 
t_String = "Die neuen Urlaubsfotos"
t_result = CibMailSetProperty("MailSubject", ByVal t_String)
 
t_String = "MailText.txt"
t_result = CibMailSetProperty("MailTextFilename", ByVal t_String)
 
t_String = "text/plain"
t_result = CibMailSetProperty("MailTextContentType", ByVal t_String)
 
t_String = "Fotos.pdf"
t_result = CibMailSetProperty("MailAttachmentFilename", ByVal t_String)
 
t_bool = 1
t_result = CibMailSetProperty("MailDialog", ByVal t_bool)
 
t_String = "MAPI"
t_result = CibMailSetProperty("MailProtocol", ByVal t_String)
  
 
MsgBox ("Versenden der eMail")
t_result = CibMailConnect
  
If t_result = 1 Then t_result = CibMailSend
 
If t_result = 1 Then t_result = CibMailDisconnect
 
 
t_long = CibMailGetLastError(t_iErrorNumber)
t_long = 256
errMsg = String(256, " ")
t_long = CibMailGetLastErrorText(ByVal errMsg, t_long)
 
 
If t_iErrorNumber <> 0 Then
errMsg = Mid(Trim(errMsg), 1, Len(Trim(errMsg)) - 1) + " (" + CStr(t_iErrorNumber) + ")"
MsgBox errMsg
Else
MsgBox "eMail erfolgreich versandt!"

End If