Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel- Outlook Besprechungsanfrage

Excel- Outlook Besprechungsanfrage
05.03.2008 16:06:00
Thomas
Hallo,
kann ich aus Excel heraus einen Termin in Outlook einstellen und gleichzeitig Teilnehmer einladen und eine Anlage mit der Einladung versenden (Besprechungsanfrage).
mfg Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Excel- Outlook Besprechungsanfrage
05.03.2008 16:34:00
Tino
Hallo,
hier mal ein Anfang um Termine an Outlook zu übergeben.
Für Besprechungsanfrage, müsste ich auch erst mal schauen wie das geht.

'Start des Termins hier, A1 Datum und B1 Uhrzeit
Sub Term_Outlook()
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
With myItem
.Subject = "Datei: " & ActiveWorkbook.Name 'Betreff
.Body = "Was ich schon immer mal sagen wollte..." 'Text
.Attachments.Add "C:\DBS.TXT" 'für Anlagen
.Location = "Schule" 'Ort
.Start = Format(Range("A1").Value, "dd.mm.yyyy") & " " & _
Format(Range("B1").Value, "hh:mm")
.Duration = "10" 'tauer
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
MsgBox "Termine an Outlook übertragen!"
Set myOLApp = Nothing
Set myItem = Nothing
End Sub


Gruß
Tino

Anzeige
AW: Excel- Outlook Besprechungsanfrage
05.03.2008 18:16:00
Tino
Hallo,
durch hinzufügen von
.OptionalAttendees = "Test1@EmailTest.de; Test2@EmailTest.de" 'Teilnehmer
wird eine Teilnehmerliste hinzugefügt.
Gruß
Tino

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige