Termin von Outlook an Handy senden

Ein Handy muss für SMS-Empfang freigeschaltet sein. Im Outlook-VBA legt man ein neues Projekt an, klickt auf "Microsoft Outlook Objekte" und "DieseOutlookSitzung".

Quellcode:

Sub Application_Reminder(ByVal Item As Object)
Dim strTerminInfo As String
Dim olRemindMail As MailItem

If TypeName(Item) = "AppointmentItem" And Item.Importance = olImportanceHigh Then
  strTerminInfo = "Termin(" & Format(Item.Star, "ddd dd.mm. hh.nn") & _
    "-" & Format(Item.End, "hh:nn") & "): " & Item.Subject
  Set olRemindMail = Outlook.CreateItem(olMailItem)
  With olRemindMail
    .Subject = strTerminInfo
    .Recipients.Add "0123456789@dein_provider.de"
  .Send
 End With
End If

End Sub