kann ich aus Excel heraus einen Termin in Outlook einstellen und gleichzeitig Teilnehmer einladen und eine Anlage mit der Einladung versenden (Besprechungsanfrage).
mfg Thomas
'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