Bitte dringend um HILFE!!!!

flyworld2000 · 16.06.2003

Ich suche eine möglichkeit meine privaten Termine durch eine eingabe
in öffentlichen Kalender automatisch zu übernehmen.

Bitte hilft mir!!!

Danke.

flyworld2000 · 17.06.2003

Also, ich vesuche mich noch anders auszudrücken,
ich möchte eine kopie des Persönlichen Termins in Öffentlichen OrdnerTermine verschiben.
Entweder beim schliessen oder über eine auswahl wie messagebox.

flyworld2000 · 18.06.2003

Lösung habe ich selbst gefunden. Villeich braucht es mal jemand.

Code:

Function Item_Close()
wert = msgbox(Möchten Sie diesen Termin in Privaten Kalender übernehmen?,vbQuestion +vbYesNo,Sicherheitsfrage)
if wert = vbYes Then 
set mynamespace = application.getnamespace(MAPI)
Set MyCalenderFolder = MyNameSpace.GetDefaultFolder(9)
Set MyItem = Application.CreateItem(1)
MyItem.subject  = subject
MyItem.body = body
Myitem.Start = start
MyItem.duration = duration
MyItem.location = location
MyItem.ReminderMinutesBeforeStart = ReminderMinutesBeforeStart
MyItem.ReminderPlaySound = ReminderPlaySound 
MyItem.ReminderSet = ReminderSet
MyItem.Save
end if
end Function

Gruß flyworld

Bitte dringend um HILFE!!!!

flyworld2000

flyworld2000

flyworld2000

Bitte dringend um HILFE!!!!

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums