Check om aftale eksistere i Outlook 2003 før den oprettes.
Hej
Jeg har et lille script der opdatere Outlook 2003 kalender med data fra Project 2003 udtræk. Jeg ville gerne checke om aftaler eksistere før jeg opretter dem så de ikke bliver oprettet dobbelt.
Mvh Henrik
Function OptetAftale(Emne,Start,Slut,Tid)
Const olAppointmentItem = 1 Set objOutlook = CreateObject("Outlook.Application") Set objAppointment = objOutlook.CreateItem(olAppointmentItem) objAppointment.Start = Start objAppointment.End = Slut objAppointment.Subject = Emne objAppointment.Body = "Kalkuleret tid: " & Tid & " Timer" objAppointment.ReminderMinutesBeforeStart = 15 objAppointment.ReminderSet = True objAppointment.Save
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Set myOlApp = CreateObject("Outlook.Application") Set myItem = myOlApp.CreateItem(olContactItem)
Set myNameSpace = myOlApp.GetNameSpace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(9) Set myMtgReq = myFolder.Items.Find ("[Subject] = '" & Emne & "'")
If TypeName(myMtgReq) <> "Nothing" Then Set myMtgReq2 = myFolder.Items.Find ("[Start] = '" & Starttid & "'") If TypeName(myMtgReq2) <> "Nothing" Then ChechDub = "Fundet" End If End If
End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
