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
