• Der Fragesteller hat diesen Beitrag als gelöst markiert.
  • Geschlossen

DesktopSmS Automatisches Senden

PascalM
Level 1
1 von 9

Hallo Zusammen,

 

Ist es möglich Desktop Sms so auszuführen das der Text und die Telefonnummer automatisch ausgefüllt werden und das Sms dann versendet wird? Zum Beispiel mit einer .exe Datei?

 

Es geht um ein Überwachungsprogramm welches als aktion eine Datei ausführen kann. Es können auch individuelle Parameter übergeben werden.

 

Besten Dank

 

Pascal Müller

HILFREICHSTE ANTWORT1

Akzeptierte Lösungen
Tux0ne
Level 9
3 von 9

Geht ein vbs auch?

Dann easy game.

 

Erstelle mit dem Editor eine neue Texdatei.

In diese kopierst du folgendes:

 

On Error Resume Next
RCP = "0791234567@sms.bluewin.ch"
MSG = "Hier deine Message"
SUBJ = "Hier dein Betreff"

Set Outlook = CreateObject("Outlook.Application")
Set MAPI = Outlook.GetNameSpace("MAPI")
Set NewMail = OUtlook.CreateItem(0)
NewMail.Subject = SUBJ
NewMail.Body = MSG
NewMail.Recipients.Add RCP

NewMail.Send

 

 

In dieses Script schreibst du noch deine Daten. NATELnr, Text, Betreff.

Speichere es nun als Mirdochegal.vbs

 

Funktioniert, zwar ohne Desktop SMS.

Jeder ist beim Provider den er verdient
Jeder ist beim Provider den er verdient
8 Kommentare 8
marcus
Super User
2 von 9

Jain.. Du kannst was selbst schreiben 😉

Oder einen Mail-To-SMS-Dienst benutzen.

Mail an eine Adresse und dieser sendet dir oder dem Natel die SMS.

Du kannst auch bein einem Bluewinpostfach eine SMS-Benachrichtig einschalten.

 

Swisscom Kundencenter >Internet, >Bluewin E-Mail, >Weiterleitung > Weiter

 

cu Marcus
Die Swisscom Community ist ein Kunde-hilft-Kunde-Forum.
cu Marcus
Die Swisscom Community ist ein Kunde-hilft-Kunde-Forum.
Tux0ne
Level 9
3 von 9

Geht ein vbs auch?

Dann easy game.

 

Erstelle mit dem Editor eine neue Texdatei.

In diese kopierst du folgendes:

 

On Error Resume Next
RCP = "0791234567@sms.bluewin.ch"
MSG = "Hier deine Message"
SUBJ = "Hier dein Betreff"

Set Outlook = CreateObject("Outlook.Application")
Set MAPI = Outlook.GetNameSpace("MAPI")
Set NewMail = OUtlook.CreateItem(0)
NewMail.Subject = SUBJ
NewMail.Body = MSG
NewMail.Recipients.Add RCP

NewMail.Send

 

 

In dieses Script schreibst du noch deine Daten. NATELnr, Text, Betreff.

Speichere es nun als Mirdochegal.vbs

 

Funktioniert, zwar ohne Desktop SMS.

Jeder ist beim Provider den er verdient
Jeder ist beim Provider den er verdient
Waudiz
Level 1
4 von 9

Bei mir geht es überhaupt nicht. Habe eben probiert, mir selber ein solches SMS zu senden. Und zwar via Webmail von Bluewin. Verschickt habe ich an

 

079xxxxxxx@sms.bluewin.ch - Die verwendete Nummer stimmt 100%. Erhalten habe ich folgende Rückmeldung:

 

This is the Postfix program at host ps11zhb.bluewin.ch.

I'm sorry to have to inform you that your message could not
be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to <postmaster>

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

                  The Postfix program

<079xxxxxxx@bluewin.ch>: host mailzhb.bluewin.ch[195.186.18.61] said: 550
    <079xxxxxxx@bluewin.ch>: User unknown (in reply to RCPT TO command)

 

Ich habe kein Desktop-SMS und auch kein Outlook installiert auf dem Testsystem. So wie ich es verstanden habe, müsste es unter Verwendung des eigenen Bluewin-Mailkontos aber auf jeden Fall gehen, unabhängig vom verwendeten E-Mail-Client. Es handelt sich auch um ein vollwertiges Konto (kein Gratis-Account oder so), nutze Casa Trio.

Was mache ich falsch?

Jüre
Super User
5 von 9

@Waudiz:   Was mache ich falsch?

 

Nichts, wenn Du wirklich die richtige Natel Nummer verwendest.

Gerade selber getestet. Funktioniert bei mir vom Web und Outlook2007. Absender Swisscom.

 

Gruss Herby

#userID63 und Jüre aka Herby 😉
#userID63 und Jüre aka Herby ;-)
Tux0ne
Level 9
6 von 9

Bei mir funktionierst auch Tip Top.

 

Mich nähme noch Wunder ob PascalM dieses Script jetzt auch so nutzt.

Das funktioniert ebenfalls gut. Ich finds eigentlich Hardcore 😛

Jeder ist beim Provider den er verdient
Jeder ist beim Provider den er verdient
Waudiz
Level 1
7 von 9

Na, bin selber schuld, habe das sms. vor bluewin.ch vergessen! Aber leider beschränkt sich diese Lösung auf die üblichen 160 Zeichen. Uebers Webinterface kann man auch längere SMS verschicken. Geht das per E-Mail auch irgendwie, notfalls über einen speziellen (Bezahl-)Dienst? Ich suche eine Lösung für Private, habe keinen eigenen Mailserver.

PascalM
Level 1
8 von 9

Danke,

 

Hatte leider keine Zeit zum Antworten (Bin leider "noch" kein fleissiger User).

 

Das Script ist der Hammer, die Antworten im Forum Top!

 

THX @ all!

Tux0ne
Level 9
9 von 9

Danke dir.

Jeder ist beim Provider den er verdient
Jeder ist beim Provider den er verdient
Nach oben