[Outlook] Faxnummers moeten weg

[Verwijderd]

Hoi, ik zit met het volgende probleem: als ik in outlook een contactpersoon toevoeg en bij de gegevens ook het faxnummer invul gaat er het 1 en ander niet zoals ik zou willen.

Het effect van de vorige actie is namelijk dat als ik nu een nieuwe e-mail wil versturen en op "AAN" klik ik de persoon 2x in de lijst zie staan. 1 keer met het faxnummer en 1x met het emailadres, en je begrijpt het al, ik zou de entrie met het faxnummer graag weg hebben. Maar ik tot op heden niets gevonden, maar misschien dat iemand van jullie het weet.

[Verwijderd]

Nou, na een hele zondag zoeken heb ik 10 min na het posten van een topic wat gevonden en het schijnt niet te kunnen. Maar er is een workarround door de faxnummer ipv "0534588" de naam "Fax: [phone]" te geven. Aangezien het bij mij om 1500 contacten gaat is hier de makro: (helaas niet zelf gemaakt)

code:

Sub ChangeFaxNumber()
  Dim objApp As Application
  Dim objSelection As Selection
  Dim objItem As Object
  Dim intMaxItems As Integer
  Dim strmsg
  Dim bfax, hfax, ofax As String
  Const DummyFaxText As String = "Fax: "
  
  
  Set objApp = CreateObject("Outlook.Application")
  Set objSelection = objApp.ActiveExplorer.Selection
  
  Select Case objSelection.Count
      Case 0
      
          strmsg = "No items were selected"
          MsgBox strmsg, , "No selection"
      Case Else
      
      For Each objItem In objSelection
           If objItem.Class = olContact Then
              bfax = objItem.BusinessFaxNumber
              hfax = objItem.HomeFaxNumber
              ofax = objItem.OtherFaxNumber
              
              If bfax = "" Then
                      bfax = bfax
                  ElseIf InStr(bfax, DummyFaxText) > 0 Then
                      bfax = bfax
                  Else
                      bfax = DummyFaxText & bfax
              End If
              
              If hfax = "" Then
                      hfax = hfax
                  ElseIf InStr(hfax, DummyFaxText) > 0 Then
                      hfax = hfax
                  Else
                      hfax = DummyFaxText & hfax
              End If
              
              If ofax = "" Then
                      ofax = ofax
                  ElseIf InStr(ofax, DummyFaxText) > 0 Then
                      ofax = ofax
                  Else
                      ofax = DummyFaxText & ofax
              End If
              
              objItem.BusinessFaxNumber = bfax
              objItem.HomeFaxNumber = hfax
              objItem.OtherFaxNumber = ofax
              
              objItem.Save
            End If
         Next
           Set objItem = Nothing
       End Select
       
End Sub

edit:
deze kan dus dicht...

[ Voor 5% gewijzigd door Verwijderd op 28-04-2003 00:49 ]