zyclop
Erfahrenes Mitglied
Hallo zusammen,
ich habe eine Mail/Termin Prozedur, welche ich erhalten habe.
Jetzt füge ich diese Prozedur in mein Excel file und bekomme folgende meldung bei der Initialisierung.
was ist der Grund?
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?