Mailprozedur in Excel verwenden

zyclop

Erfahrenes Mitglied
Hallo zusammen,

ich habe eine Mail/Termin Prozedur, welche ich erhalten habe.

Code:
Sub test()

Dim objApp As Outlook.Application
Dim objMapi As NameSpace
Dim objRecipient As Recipient
Dim objRcpntCalendar As MAPIFolder
Dim olApptItem As AppointmentItem

Set objApp = GetObject(, "Outlook.Application")
Set objMapi = objApp.GetNamespace("MAPI")
Set objRecipient = objMapi.CreateRecipient("fabian lohri")
objRecipient.Resolve

If objRecipient.Resolved Then

Set objRcpntCalendar = objMapi.GetSharedDefaultFolder(objRecipient, olFolderCalendar)
Set objApptItem = objRcpntCalendar.Items.Add

    
    With objApptItem
    
        '.MeetingStatus = olMeeting
        .Subject = "Besprechungsanfrage per VBA"
        .Body = "Stellst du dir dies so vor?"
        .Location = "Ort"
        '.Start = Now
        .AllDayEvent = True
        '.send
        .Save
    End With
End If

Set objRecipient = Nothing
Set objApptItem = Nothing
Set objNameSpace = Nothing
Set objApp = Nothing
    
End Sub

Jetzt füge ich diese Prozedur in mein Excel file und bekomme folgende meldung bei der Initialisierung.


HTML:
Fehler beim Komplieren:
Benutzerdefinierter Typ nicht definiert

was ist der Grund?
 
Du musst unter Extras->Verweise

Outlook einbinden.

Das heisst so weit ich weiss MS Outlook 10.0 lib oder so

Grüsse bb
 
Kann mir jemand sagen wie ich einen Termin sagen kann ob er Mit Vorbehalt, abwesend, frei oder Beschäftigt ist? Wie kann ich diese Eigenschaft mitteilen? Währe wirklich cool wenn mir das einer Sagen kann. Und wenn ja, wie er das heraus gefunden hat.

Besten Dank

Zyclop
 
Zurück