FJ Software

Hallo Forum
Ich möchte per VBA ein Zeitversetztes SMS versenden, aber dieser VBA-Code wird sofort versendet obwohl im VBA-Code, Datum und Uhrzeit angegeben ist. Wo ist in diesem VBA-Code der Fehler und wer kann mir den richtigen VBA-Code schreiben. Danke

Sub ScheduleSMS()
Dim phoneNumber As String
Dim messageText As String
Dim scheduleDate As Date
Dim scheduleTime As Date
Dim formattedDate As String
Dim formattedTime As String
Dim shell As Object

' Telefonnummer des Empfängers festlegen
phoneNumber = "123456789" ' Ersetzen Sie dies durch die tatsächliche Telefonnummer

' Text der Nachricht festlegen
messageText = "Hallo" ' Ersetzen Sie dies durch Ihren Nachrichtentext

' Geplantes Sendedatum und -zeit festlegen
scheduleDate = "2025-01-01" ' Ersetzen Sie dies durch das gewünschte Datum und die gewünschte Uhrzeit
scheduleTime = "20:35:00" ' Ersetzen Sie dies durch das gewünschte Datum und die gewünschte Uhrzeit


' Datum und Uhrzeit formatieren
formattedDate = Format(CDate(scheduleDateTime), "yyyy-mm-dd") '"yyyy-mm-dd")
formattedTime = Format(CDate(scheduleDateTime), "hh:mm:ss")
'MsgBox formattedDate
' Shell-Objekt erstellen
Set shell = CreateObject("WScript.Shell")

' Befehl zum Planen der SMS über MyPhoneExplorer erstellen
Dim command As String
command = "myphoneexplorer.exe action=sendmessage number=" & phoneNumber & " text=""" & messageText & """ date=" & formattedDate & " time=" & formattedTime

' Befehl ausführen
shell.Run command, 0, False

' Shell-Objekt bereinigen
Set shell = Nothing
End Sub

Meiner Meinung nach, unterstützt MPE keine zeitversetzten SMS per direkt Befehl
Hast Du das irgendwo gelesen ?
Falls nein, wäre das ein Wunsch, den ich gern an FJ weiterleite !

Ich bitte Dich, keine doppelte Threads hier im Forum zu erstellen !

Vielleicht könntest Du meine Frage erst einmal antworten.

Könnte das über den "MPE SMS Planer" laufen? Sonst müßte ja der PC und die Software zu dem Sendetermin gestartet werden.

OK, dann leite ich unverbindlich Deinen Wunsch an FJ weiter !

:Daumen hoch: