Fehlende EntryID zu eingetragenem Outlooktermin

01/11/2007 - 11:04 von Dieter Strassner | Report spam
Hallo NG'ler,

u.g. Code in ein Standard-Projekt (VB6, SP6) eingefügt (mit Verweis
"Microsoft Outlook 12.0 Object Library") legt Termine in Outlook ab. Das
funktioniert soweit auch.

Jedoch liefert Outlook nur dann eine EntryID zurück, wenn Outlook bereits
vor Programmstart aktiv war.
Wenn nicht wird zwar Outlook gestartet, aber es wird keine EntrID
zurückgegeben (Getestet mit Outlook-2003)

Gibt es dazu eine Lösung?
Danke für zielführende Tipps!

_____________
Private Sub Form_Load()

Dim OutlookApp As Outlook.Application
Dim termin As Outlook.AppointmentItem

Set OutlookApp = CreateObject("Outlook.Application")
Set termin = OutlookApp.CreateItem(olAppointmentItem)

termin.ReminderSet = True
termin.AllDayEvent = True
termin.Body = "Ein Termin"
termin.Duration = 20
termin.Start = #10/31/2007 7:00:00 PM#
termin.Subject = "Test"
termin.Save
MsgBox termin.EntryID ' <<== leere ENTRYID :-(
Outlook.Quit

End Sub


Viele Grüße

Dieter


Rückfragen bitte nur in die Newsgroup!

EDV-Kommunikation Strassner e.K.
68623 Lampertheim
Internet: www.strassner.biz
 

Lesen sie die antworten

#1 Matthias Günther
01/11/2007 - 16:17 | Warnen spam
Hallo,

bist so nicht an der MAPI Session angemeldet - probiers mal auf die Weise:

Dim WithEvents OutlookApp As Outlook.Application

Private Sub Form_Load()
Set OutlookApp = CreateObject("Outlook.Application")
End Sub

Private Sub OutlookApp_MAPILogonComplete()
Dim termin As Outlook.AppointmentItem

Set termin = OutlookApp.CreateItem(olAppointmentItem)

termin.ReminderSet = True
...
termin.Save
Outlook.Quit

End Sub

Matthias


"Dieter Strassner" schrieb im Newsbeitrag
news:
Hallo NG'ler,

u.g. Code in ein Standard-Projekt (VB6, SP6) eingefügt (mit Verweis
"Microsoft Outlook 12.0 Object Library") legt Termine in Outlook ab. Das
funktioniert soweit auch.

Jedoch liefert Outlook nur dann eine EntryID zurück, wenn Outlook bereits
vor Programmstart aktiv war.
Wenn nicht wird zwar Outlook gestartet, aber es wird keine EntrID
zurückgegeben (Getestet mit Outlook-2003)

Gibt es dazu eine Lösung?
Danke für zielführende Tipps!

_____________
Private Sub Form_Load()

Dim OutlookApp As Outlook.Application
Dim termin As Outlook.AppointmentItem

Set OutlookApp = CreateObject("Outlook.Application")
Set termin = OutlookApp.CreateItem(olAppointmentItem)

termin.ReminderSet = True
termin.AllDayEvent = True
termin.Body = "Ein Termin"
termin.Duration = 20
termin.Start = #10/31/2007 7:00:00 PM#
termin.Subject = "Test"
termin.Save
MsgBox termin.EntryID ' <<== leere ENTRYID :-(
Outlook.Quit

End Sub


Viele Grüße

Dieter


Rückfragen bitte nur in die Newsgroup!

EDV-Kommunikation Strassner e.K.
68623 Lampertheim
Internet: www.strassner.biz

Ähnliche fragen