Outlook - Keine Duplikate importieren
18.07.2008 13:14:00
Stephan
folgendes Makro exportiert einen Termin von Excel nach Outlook. Nun sollen aber keine Duplikate exportiert werden.
Welchen Code müsste ich dazu einfügen? Oder muss das Ganze vielleicht über eine Schleife laufen? Sämtliches recherchieren hat bisher leider nichts gebracht. Vielen Dank!
Grüße, Stephan
Sub Excel_Control_Termin_nach_Outlook()
Dim OutApp As Object, apptOutApp As Object
ActiveSheet.Range("B26").Select
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 13:30"
.Subject = ActiveCell.Offset(0, 3)
.Body = ActiveCell.Offset(0, 3)
.Location = ActiveCell.Offset(0, 2)
.Duration = "60"
.ReminderMinutesBeforeStart = 120
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termine an Outlook übertragen!"
End
Sub
Anzeige