Seite 1 von 1

eingehende Handyanrufe am PC anzeigen lassen?

Verfasst: Mo 9. Apr 2012, 15:13
von MBMBMB
Hallo,

ist es mit MyPhoneExplorer möglich eingehende Anrufe vom Handy am PC so anzeigen zu lassen, dass der entsprechende Kontakt direkt in Outlook geöffnet wird?

Hintergrund ist, da sämtliche Kontaktdaten im Outlook Business Contact Manager hinterlegt sind und auch von der Telefonanlage eingehende Anrufe somit dort als Journaleintrag automatisch erfast werden und Gesprächsnotitzen so hinzugefügt werden können.

Verfasst: Mo 9. Apr 2012, 20:34
von FJ
MyPhoneExplorer verwaltet die Anrufe selbst, eine Verlinkung mit Outlook ist hier nicht geplant. Aber mit ein bischen Scripting kannst du da sicher was machen. Siehe FAQ (ganz unten - EventHandler)

Verfasst: Mo 9. Apr 2012, 21:27
von MBMBMB
Danke für die Rückmeldung,

leider habe ich selbst keinerlei Ahnung von Scripten oder Programmieren :(

Wenn mir jemand dabei helfen kann damit ich das auch umsetzen kann wäre ich sehr dankbar, da unbedingt die Anbindung eines Mobiltelefones an den PC und darüber das Öffnen der jeweiligen Outlookkontakte darauf benötige. Dies wird dann auf mehreren PCs/Einzelstationen benötigt.

Vielen Dank

Verfasst: Mo 9. Apr 2012, 21:31
von FJ
Ich habe Outlook Business Contact Manager nicht weshalb ich dir da schlecht weiterhelfen kann, vielleicht findest du ja einen Outlook-Spezi der dir das bastelt

Verfasst: Di 10. Apr 2012, 06:04
von MBMBMB
Hallo FJ,

der Business Contact Manager integriert sich komplett in Outlook. Somit reicht es wenn im normalen Outlook die Kontakte geöffnet werden. Wenn das gehen würde wäre das super und ich hätte endlich eine Lösung gefunden.

Verfasst: Sa 14. Apr 2012, 00:51
von FJ
Erstelle die Datei C:\DisplayOutlookContact.vbs und editirere sie mit Notepad folgendermaßen:

Code: Alles auswählen

If WScript.Arguments.Count > 0 Then
  Call FindContact(WScript.Arguments.Item(0))
End If


Sub FindContact(Number)
    Dim olApp
    Dim objResult
    Dim objContacts
    Dim objNameSpace
    Dim sFilter

    Const tMobile = """http://schemas.microsoft.com/mapi/proptag/0x3A1C001F"""
    Const tBusiness = """http://schemas.microsoft.com/mapi/proptag/0x3A08001F"""
    Const tBusiness2 = """http://schemas.microsoft.com/mapi/proptag/0x3A1B001F"""
    Const tHome = """http://schemas.microsoft.com/mapi/proptag/0x3A09001F"""
    Const tHome2 = """http://schemas.microsoft.com/mapi/proptag/0x3A2F001F"""

    If Len(Number) < 5 Then Exit Sub

    sFilter = Number

    'MyPhoneExplorer übergibt die Nummer im Format "Name [Nummer]", wir müssen die Nummer rausfiltern
    If Instr(1,sFilter,"[") <> 0 Then
      sFilter = Mid(sFilter, InstrRev(sFilter,"[") + 1)
      If Instr(1, sFilter, "]") <> 0 Then
        sFilter = Left(sFilter, Instr(1, sFilter, "]") - 1)
      End If
    End If

    'Ländervorwahl und führende 0 der nationalen Vorwahl wegschneiden
    If Left(sFilter, 2) = "00" Then sFilter = Mid(sFilter,5)
    If Left(sFilter, 1) = "+" Then sFilter = Mid(sFilter,4)
    If Left(sFilter, 1) = "0" Then sFilter = Mid(sFilter,2)
    sFilter = " like '%" & sFilter & "'" 

    Set olApp = CreateObject("Outlook.Application")
    Set objNameSpace = olApp.GetNamespace("MAPI")
    Set objContacts = objNameSpace.GetDefaultFolder(10)

    Set objResult = objContacts.Items.Find("@SQL=" & tMobile & sFilter & " OR " & tBusiness & sFilter & " OR " & tBusiness2 & sFilter & " OR " & tHome & sFilter & " OR " & tHome2 & sFilter)

    If TypeName(objResult) <> "Nothing" Then
        objResult.Display
    Else
        MsgBox "Kontakt nicht gefunden zu: " & Number
    End If
End Sub
Öffne dann die Datei %appdata%\MyPhoneExplorer\general.ini mit Notepad und hänge unten folgendes an:

Code: Alles auswählen

[EventHandlers]
OnIncomingCall=C:\DisplayContactOutlook.vbs "%number"
Wenn du alles richtig machst dann wird ab jetzt bei jedem eingehenden Anruf der passende Outlook-Kontakt angezeigt. Gesucht wird in den Outlook Feldern: Mobil, Geschäftlich, Geschäftlich 2, Privat und Privat 2

Verfasst: Do 19. Apr 2012, 17:22
von EmPeSofti
Hallo FJ

Auch wenn mich obiges Problem überhaupt nicht betrifft. Ich finde es erstaunlich und bemerkenswert, mit wieviel Engagement und Aufwand Du Userprobleme beantwortest!

Das darf doch als Lob an Dich auch Mal "öffentlich" gesagt werden ;-))

Gruss aus der Schweiz. Peter

Verfasst: Do 26. Apr 2012, 21:24
von FJ
Danke fürs Lob

Ich muss aber eingestehen daß ich das aus zeitlichen Gründen nicht immer mache. Hier hats mich halt einfach in den Fingern gejuckt ;-)

Aber so wie es aussieht wars eh für die Katz, sonst hätte der Thread-Ersteller wohl nochmal geantwortet :(