Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Outlook - Keine Duplikate importieren

Outlook - Keine Duplikate importieren
18.07.2008 13:14:00
Stephan
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Outlook - Keine Duplikate importieren
19.07.2008 21:00:49
Stephan
Hallo Bernd,
vielen Dank für den Link! Das sieht auf den ersten Blick ganz nach einer Lösung aus;-)
Werde es Montag direkt ausprobieren. Danke!
Gruß, Stephan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige