Hallo Office Gemeinde,
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
End Sub
Private Sub Application_Reminder(ByVal Item As Object)
Dim strTerminInfo As String
Dim olRemindMail As MailItem
If Item.Importance = olImportanceHigh Then
strTerminInfo = "Achtung Termin-Erinnerung : " & Item.Subject
Set olRemindMail = Outlook.CreateItem(olMailItem)
With olRemindMail
.Subject = strTerminInfo
.Recipients.Add "handynummer@dienst"
.Send
End With
End If
End Sub
damit kann ich den Termin senden aber nur an eine feste Nummer. Ich suche eine Möglichkeit das die Nummer aus dem Termin verwendet wird und an die die Termin Erinnerung gesendet wird.
Vielen Dank im Voraus
