fakie
Grünschnabel
Code:
Private 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.Start, "ddd dd.mm. hh:nn") & _
"-" & Format(Item.End, "hh:nn") & "): " & Item.Subject
Set olRemindMail = Outlook.CreateItem(olMailItem)
With olRemindMail
.Subject = strTerminInfo
.Recipients.Add "xxxxxxxxxx@t-mobile-sms.de"
.Send
End With
End If
End Sub
Mit dem Makro sendet mir mein Outlook automatisch wenn ein Termin importance hoch hat eine sms auf mein handy.
nun ist das problem, dass wenn ich 15 minuten vorher erinnern eingetippt hab, dann schickt er sie los, sie kommt aber erst ungefähr 10 minuten später auf meim handy an (problem).
Wie kann ich das Makro so umschreiben dass es 10 minuten vor dem reminder ausgeführt wird?
und wie kann ich in die olRemindMail einfügen von welchem konto es abgesendet wird?
im vorraus