Anzeige
Archiv - Navigation
664to668
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
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Excel Makro->festen Termin an Outlook
12.09.2005 16:31:12
Denise
Hallo,
ich habe hier ein Makro mit dem ich einen Termin aus Excel an Outlook übertragen kann. Das Problem ist, dass der Termin nur als "gebucht" übertragen wird. Gibt es eine Möglichkeit den Termin auch als "frei" an Outlook zu übertragen?
Hier das Makro:

Sub Termin_in_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("A37").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = ActiveCell.Offset(0, 0)
'Hier wird der Beginn-Datum eingegeben
.Subject = ActiveCell.Offset(0, 1)
'Hier wird der Betreff eingegeben
.ReminderSet = True
'Termin speichern
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst ist Outlook irgendwann überlastet
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine an Outlook übertragen!"
Range("B3").Select
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro->festen Termin an Outlook
12.09.2005 18:08:23
Willie
Hallo Denise
Das geht ich habe da auch lange gebraucht, bis ich es heraus gefunden habe aber es geht!
Ich hatte das nur in einer Userform in eine Combobox zum auswählen.
Gruß Willie
Rückmeldung wäre nett auch im Sinne des Forums
' Termin anzeigen als:
If ComboBox5.Value = "Frei" Then
myapptitem.BusyStatus = olFree
ElseIf ComboBox5.Value = "Unter Vorbehalt" Then
myapptitem.BusyStatus = olTentative
ElseIf ComboBox5.Value = "Gebucht" Then
myapptitem.BusyStatus = olBusy
ElseIf ComboBox5.Value = "Abwesend" Then
myapptitem.BusyStatus = olOutOfOffice
End If
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige