Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Rufnummernanzeige auf Handys

Mitglied: StefanKittel

StefanKittel (Level 4) - Jetzt verbinden

19.03.2010, aktualisiert 23:06 Uhr, 3144 Aufrufe, 2 Kommentare

Ich werde gerade wahnsinnig.
Ich bin doch nicht der 1. Mensch auf diesem Planten der seine Rufnummer nicht jedem zeigen möchte.

Ich werde gerade wahnsinnig.
Ich bin doch nicht der 1. Mensch auf diesem Planten der seine Rufnummer nicht jedem zeigen möchte.

Hallo,

ich habe eigentlich nur ein ganz kleines aber scheinbar unlösbares Problem.

Grundsätzlich wird meine Rufnummer nicht angezeigt. Dadurch kann ich Kunden anrufen und die rufen dann nicht mich sondern die Firma zurück.
Nun möchte ich aber das bei Kollegen, Lieferanten, etc meine Rufnummer angezeigt wird.
Ich habe in Outlook ca. 120 Kontakte. Davon ca. 20-30 Kunden.

Ich möchte also dass meine Rufnummer nur bei den 80-90 Kontakten angezeigt wird.

Gerät 1: Windows Mobile (HTC Touch Diamond pro)
Dieses hat die Option die Rufnummer nur für die Kontakte anzuzeigen.
Schon nicht schlecht. Aber nur fast. Außerdem kann man mit dem Gerät alles prima machen aber telefonieren nur bedingt (schlechter Empfang, ist so bei den Dingern)

Geräte 2: Samsung S3600
Dies kann die Rufnummer anzeigen oder nicht. Aber man kann ja bei jedem Kontakt einfach *31# vor die Rufnummer fügen.
Das habe ich mit einem kleinen Makro getan und stoße nun auf ein feature/bug der Samsung PC Studio 3 Software beim synchroniseren mit dem PC.
Aus "*31#+49" macht die Software "*31#49"
Ich bin manchmal in Grenzgebieten unterwegs. Da brauch ich die +49. Und die Software entfernt ein + wenn es nicht ganz am Anfang steht.

Zugriff auf Exchange kann das Ding nicht.

Gerät 3: Nokia 6600 fold (gehört meiner Frau)
Das ist noch schlimmer, da man dort für Outlook nicht mal den Ordner auswählen kann.

Ich bin doch nicht der 1. Mensch auf diesem Planten der seine Rufnummer nicht jedem zeigen möchte.

Wie macht Ihr das?
Andere Geräte?
Mitglied: 76109
19.03.2010 um 23:19 Uhr
Hallo Stefan!

Wenn ich nicht irre, dann kann man anstatt +49 auch 0049 schreiben?

Gruß Dieter
Bitte warten ..
Mitglied: StefanKittel
19.03.2010 um 23:43 Uhr
Hallo Dieter,
stimmt und funktioniert.
Vielen Dank

So gehts dann erstmal.
Ziemliches Gewürge aber es geht.

Wen es interessiert:

Function RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(p_Rufnummer As String) As String

If (Trim$(p_Rufnummer) = "") Then
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = ""
Else
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = "*31#" & p_Rufnummer
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = Replace(RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen, " ", "")
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = Replace(RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen, "(", "")
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = Replace(RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen, ")", "")
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = Replace(RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen, "+49", "0049")
RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen = Replace(RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen, "00490", "0049")
End If
End Function

Sub RufnummerMitAnzeigeErzeugen()

Set outlookApliaction = CreateObject("Outlook.Application")
Set mapiNamespace = outlookApliaction.GetNamespace("MAPI")

Set folderSource = mapiNamespace.Folders("Postfach - Stefan Kittel").Folders("Kontakte")
Set folderDestination = mapiNamespace.Folders("Postfach - Stefan Kittel").Folders("Kontakte mit Rufnummernanzeige")

While (folderDestination.Items.Count > 0)
folderDestination.Items.Item(1).Delete
Wend



Dim itemContactSource As Outlook.ContactItem
Dim itemContactDesitnation As Outlook.ContactItem

Dim index As Integer

For index = 1 To folderSource.Items.Count

Set itemContactSource = folderSource.Items(index)

Set itemContactDesitnation = itemContactSource.Copy

If (Trim$(itemContactDesitnation.Categories) <> "") Then

itemContactDesitnation.Home2TelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.Home2TelephoneNumber)
itemContactDesitnation.HomeTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.HomeTelephoneNumber)
itemContactDesitnation.MobileTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.MobileTelephoneNumber)
itemContactDesitnation.AssistantTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.AssistantTelephoneNumber)
itemContactDesitnation.Business2TelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.Business2TelephoneNumber)
itemContactDesitnation.BusinessTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.BusinessTelephoneNumber)
itemContactDesitnation.CallbackTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.CallbackTelephoneNumber)
itemContactDesitnation.CarTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.CarTelephoneNumber)
itemContactDesitnation.CompanyMainTelephoneNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.CompanyMainTelephoneNumber)
itemContactDesitnation.ISDNNumber = RufnummerMitAnzeigeErzeugen_NeueRufnummerErzeugen(itemContactDesitnation.ISDNNumber)
End If

itemContactDesitnation.Move (folderDestination)

Next index

MsgBox ("fertig")


End Sub
Bitte warten ..
Ähnliche Inhalte
Datenschutz
DSGVO Mailing Private Handys
gelöst Frage von retrieveDatenschutz35 Kommentare

Guten Tag, ich habe eine frage bezüglich der DSGVO. Dürfen auf Privat Handys der Mitarbeiter Ihre E-Mail Accounts des ...

Vmware
Handys Tablets per RDP durchschleifen
Frage von Huibuh2010Vmware12 Kommentare

Hey Admins, ich arbeite mit ein Zero-Client auf ein Windows 10 Rechner dort möchte ich per RDP auf ein ...

HTML

Webseite für Handys und Tablets optimieren

Frage von gamerffHTML4 Kommentare

Hallo Forum, ich habe mir in den letzten 2 Jahren eine Webseite mit HTML aufgebaut ohne jegliches CMS. Könnte ...

Sonstige Systeme

Verwaltung Leihgaben HDD, Sticks, Handys etc

Frage von IT-ProSonstige Systeme7 Kommentare

Hallo miteinander. gibt es eine Software mit AD-Integration mit der man Leihgaben/ Breitstellung von Festplatten, Sticks, Handys, Monitore, etc ...

Neue Wissensbeiträge
Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 2 TagenWindows 7

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 4 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Microsoft Office

Office365 Schwachstellen bei Sicherheit und Datenschutz

Information von Penny.Cilin vor 5 TagenMicrosoft Office7 Kommentare

Auf Heise+ gibt es einen Artikel bzgl. Office365 Schwachstellen. Das ist noch ein Grund mehr seine Daten nicht in ...

Sicherheit
Schwachstellen in VPN Clients
Tipp von transocean vor 7 TagenSicherheit2 Kommentare

Moin, es gibt Sicherheitslücken bei VPN Clients namhafter Hersteller, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Windows Installation
Windows10 Home Neuinstallation - Raketentechnik
Frage von spacyfreakWindows Installation12 Kommentare

"Kannst du den Rechner von der Tante von WindowsXP auf Windows10 Home upgraden" haben sie gefragt? "Sicher, was kann ...

Utilities
Teamviewer 9.x "out of date" ??
gelöst Frage von keine-ahnungUtilities11 Kommentare

Moin at all, mein topaktueller teamviewer (alles 9.x - releases) verweigert seit heute die Arbeit und bemeckert: "the remote ...

Windows 10
Windows 10 verwendet FritzBox per IPv6 als DNS-Server an Stelle des per DHCP vergebenen DNS-Servers
Frage von Datax87Windows 1010 Kommentare

Hallo, ich habe ein kleines Problem mit der Namensauflösung (DNS) unter Windows 10. Mir ist heute aufgefallen, dass ich ...

Peripheriegeräte
Empfehlung für Home-USV (ca. 450VA 270W) Irgendwelche Osterpreisaktionen bekannt?
Frage von Server-NutzerPeripheriegeräte9 Kommentare

Hallo und schöne Ostern. Meine private Heim-USV Yunto Q450 (ca. 450VA 270W) hat sich nach vielen Jahren ohne Probleme ...