SMS-Versand über PC

Anmeldedatum: 06.04.2015 Beiträge: 4

Hallo,

den Aussagen, dass der MPE ein sehr gutes Programm ist, kann ich mich nur anschließen!
Ich habe aber trotzdem eine Frage bzw. Bitte: ich kopiere aus Fremdprogrammen (z.B. Spalte in Access-Tabelle) die Telefonnummern und füge sie mit Strg-v unter Empfänger ein. Diese Nummern sind mit CR/LF (0D 0A) getrennt und müssen händisch editiert werden (; in jede Zeile einfügen). Dieses Editieren ist außerdem ziemlich umständlich, weil man nur mit den Cursortasten durch die Liste navigieren kann - Mausklick geht nicht. Schön wäre, wenn CR/LF genau so behandelt würde wie ";" oder beim Einfügen nach jeder Nummern der ";" eingefügt würde (vor oder statt CR/LF). Die Anzeige nur einer Nummer pro Zeile ist aus meiner Sicht übersichtlicher als die Anzeige in einer Zeile.

Weiters würde mir auch sehr gut gefallen, wenn die Nr. sortiert und gleich, nicht erst beim Versenden mit den Namen aus den Kontakten ergänzt würden.

LG Toni

Moderator Anmeldedatum: 19.04.2014 Beiträge: 15898

Hallo Toni,
ich werde den Vorschlag an FJ weiterleiten, ob und wann er ihn realisiert, kann ich Dir nicht sagen.

anton28 hat Folgendes geschrieben:

Dieses Editieren ist außerdem ziemlich umständlich

Workaround:
Ich habe Dir eine Datei per Mail zugesandt, mit der Du den Inhalt in der Zwischenablage konvertieren kannst.

Gruß icke

Anmeldedatum: 06.04.2015 Beiträge: 4

Hallo icke,

Zitat:

Ich habe Dir eine Datei per Mail zugesandt

Habe das Mail nicht bekommen. Die eingetragene Mailadr. ist korrekt.
LG

Moderator Anmeldedatum: 19.04.2014 Beiträge: 15898

Hmm, zurückgekommen ist sie auch nicht Confused

Im Spamordner hast Du schon nachgesehen!
Ich habe sie jetzt noch einmal versandt.

Gruß icke

Anmeldedatum: 06.04.2015 Beiträge: 4

Hallo,

Spamordner leer, im Posteingang Mail nicht vorhanden - auch nicht per Webmail

LG

Moderator Anmeldedatum: 19.04.2014 Beiträge: 15898

Ja ich weiß auch nicht, warum die Mail bei Dir nicht ankommt?

Hier noch eine Alternative :
Erstelle eine VBS-Datei z.b.CRLF_to_Semikolon.vbs mit folgendem Inhalt:

Code:

Dim WshShell,objArgs,Wert
Set WshShell = CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments

if(objArgs.Count=0) then
LoadClipboard
WScript.quit
end if

Wert=objArgs(0)
Wert= Replace(Wert, vbCrLF, ";")
SaveClipboard

Sub LoadClipboard
WshShell.Run "mshta.exe vbscript:(CreateObject(""WScript.Shell"")." _
& "Run("""""""& WScript.ScriptFullName &""""" """"""" & chr(38) & "document.parentwindow." _
& "clipboardData.GetData(""text"")"& chr(38) & """""""""))(Window.close)"
end sub

Sub SaveClipboard
WshShell.Run "mshta.exe vbscript:(document.parentwindow.clipboardData.SetData(""text"",""" _
& Wert &"""))(Window.close)"
end sub

Das sollte auch funktionieren Wink

Gruß icke

Informationen zum Datenschutz auf dieser Website