Ländervorwahl und VoipBuster
Hi all,
Ich habe mir erlaubt in das Originalscript eine kleine Routine einzufügen, so daß die eigene Landesvorwahl (in meinem Fall 0049) vorangesetzt wird, und eine vorhandene Ortsvorwahl-Null entfernt wird.
Damit kann auch über Voipbuster o.ä. Provider telefoniert werden, also immer dann wenn vollständige Landesvorwahlen in Outlook benötigt werden aber nicht vorhanden sind.
Da ich das LCR Programm von H.Becker auf der FbF laufen habe, mußte ich dort allerdings einstellen, daß für die Eigene Landesvorwahl 0049 explizit VoipBuster verwendet werden soll. (Ansonsten erhielt ich die Ansage 'Vorwahl nicht bekannt o.ä. in div.Sprachen..)
Folgende Zeilen einfach im Modul 'FritzBoxDial' im Block "Funktion_ dialNumber " VOR der Zeile 'Amtsholungsziffer voranstellen' einfügen, abspeichern, und Outlook neu starten :
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' BEGINN VoipBuster - Landesvorwahl
' Entfernen der Orstvorwahl-Null, falls die Nummer mit 0 oder (0 beginnt
' und gleichzeitig die ersten 4 Ziffern noch nicht die eig.Landesvorwahl darstellen
' dann ergänzen der eig.Landesvorwahl wie am Scriptanfang definiert
If Left(number, 1) = "0" Or Left(number, 2) = "(0" And Left(number, 4) <> EIGENE_LANDESVORWAHL Then
code = Replace(code, Left(code, 1), "", 1, 1)
code = EIGENE_LANDESVORWAHL & code
End If
' ENDE VoipBuster - Landesvorwahl
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Diese Zeilen:
' Entfernen der internationalen Vorwahl, wenn die eigene
' Landesvorwahl gewählt wird (das Wählen von 0049 aus dem
' Festnetz der deutschen T-Com verursacht z.B. Probleme) *
code = Replace(code, EIGENE_LANDESVORWAHL, "0", 1, 5)
habe ich entfernt, da mich dies ja gestört hat. Müßt Ihr auch, oder wenigstens vor die letzte Zeile ein ' setzen, um sie unwirksam zu machen.
Da ich eigentlich keine Ahnung von Visual Basic habe, bitte ich um Nachsicht, oder besser um Korrekturhinweis. (Mich hatte gereizt zu ergründen, wie der Autor die evtl. vorhandene, eigene Landesvorwahl im ursprüngl. Script -s.o.- mit der "0" ersetzt, replaced. Dann habe ich mich kurz in die Befehle Left und Replace eingelesen... Etwas Basic haben wir ja früher mal gelernt...). Bei mir erfüllt obige Routine jedenfalls ihren Zweck.
Aufpassen muss man natürlich, dass man nicht aus Versehen eine Mobilnummer anwählt sonst wirds bei VB teuer ...
Gruss und viel Spass,
Hardy
Hi all,
Ich habe mir erlaubt in das Originalscript eine kleine Routine einzufügen, so daß die eigene Landesvorwahl (in meinem Fall 0049) vorangesetzt wird, und eine vorhandene Ortsvorwahl-Null entfernt wird.
Damit kann auch über Voipbuster o.ä. Provider telefoniert werden, also immer dann wenn vollständige Landesvorwahlen in Outlook benötigt werden aber nicht vorhanden sind.
Da ich das LCR Programm von H.Becker auf der FbF laufen habe, mußte ich dort allerdings einstellen, daß für die Eigene Landesvorwahl 0049 explizit VoipBuster verwendet werden soll. (Ansonsten erhielt ich die Ansage 'Vorwahl nicht bekannt o.ä. in div.Sprachen..)
Folgende Zeilen einfach im Modul 'FritzBoxDial' im Block "Funktion_ dialNumber " VOR der Zeile 'Amtsholungsziffer voranstellen' einfügen, abspeichern, und Outlook neu starten :
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' BEGINN VoipBuster - Landesvorwahl
' Entfernen der Orstvorwahl-Null, falls die Nummer mit 0 oder (0 beginnt
' und gleichzeitig die ersten 4 Ziffern noch nicht die eig.Landesvorwahl darstellen
' dann ergänzen der eig.Landesvorwahl wie am Scriptanfang definiert
If Left(number, 1) = "0" Or Left(number, 2) = "(0" And Left(number, 4) <> EIGENE_LANDESVORWAHL Then
code = Replace(code, Left(code, 1), "", 1, 1)
code = EIGENE_LANDESVORWAHL & code
End If
' ENDE VoipBuster - Landesvorwahl
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Diese Zeilen:
' Entfernen der internationalen Vorwahl, wenn die eigene
' Landesvorwahl gewählt wird (das Wählen von 0049 aus dem
' Festnetz der deutschen T-Com verursacht z.B. Probleme) *
code = Replace(code, EIGENE_LANDESVORWAHL, "0", 1, 5)
habe ich entfernt, da mich dies ja gestört hat. Müßt Ihr auch, oder wenigstens vor die letzte Zeile ein ' setzen, um sie unwirksam zu machen.
Da ich eigentlich keine Ahnung von Visual Basic habe, bitte ich um Nachsicht, oder besser um Korrekturhinweis. (Mich hatte gereizt zu ergründen, wie der Autor die evtl. vorhandene, eigene Landesvorwahl im ursprüngl. Script -s.o.- mit der "0" ersetzt, replaced. Dann habe ich mich kurz in die Befehle Left und Replace eingelesen... Etwas Basic haben wir ja früher mal gelernt...). Bei mir erfüllt obige Routine jedenfalls ihren Zweck.
Aufpassen muss man natürlich, dass man nicht aus Versehen eine Mobilnummer anwählt sonst wirds bei VB teuer ...
Gruss und viel Spass,
Hardy
Anhänge
Zuletzt bearbeitet: