[Makros/VBA] Remindermakro

[fakie]

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

 

[mutti]

ich habe zwar keine Möglichkeit gefunden, wie man das ganze 10 Minuten vorher losschickt, aber eine Anregung hätte ich dazu noch...
Könnte man nicht einbinden, dass der Betreff des Termins und der Ort mit ausgegeben wir?

 

[fakie]

strTerminInfo = "Termin (" & Format(Item.Start, "ddd dd.mm. hh:nn") & _
"-" & Format(Item.End, "hh:nn") & "): " & Item.Subject

Das hier ist die Ausgabezeile.
Da Item.Subject dabei ist, wird der Betreff mitgesendet.

Das mit dem Ort weiß ich im Moment auch nicht...

weiß keiner das mit den 10 minuten vorher?!