Hallo nochmal,
kann mir jemand verraten, warum ich bei folgendem Code in der Zeile „CreateMailItem = Mail“ den folgenden Fehler bekomme:
„91 Object variable or With block variable not set“
Die Variable wird doch explizit gesetzt??
Gruss,
Martin
’ Creates an email message
Private Function CreateMailItem(MailTo As String, CC As String, Subject As String, Body As String) As Object
On Error GoTo errormsg
Dim outl As Object
Dim Mail As Object
Dim i As Integer
Set outl = CreateObject(„Outlook.Application“)
Set Mail = outl.CreateItem(0)
Mail.Subject = Subject
Mail.Body = Body
Mail.To = MailTo
Mail.CC = CC
CreateMailItem = Mail
Set outl = Nothing
Exit Function
errormsg:
MsgBox ("Error creating mail to " & MailTo & " with subject " & Subject & „.“ & Chr(13) & Err.Number & " " & Err.Description)
End Function