[Outlook / contacts] een email versturen naar het IM-adres

[TheovdS]

Sinds kort heb ik een HTC-touch(dual) en synchroniseer mijn agenda en contactpersonen met Outlook.

Nu hebben veel contactpersonen wel een IM-adres (heb ik uit LiveMessenger gehaald), maar gaan gewoon email-adres. Ik kan geen email versturen naar contactpersonen met alleen een IM-adres, omdat ik dan een foutmelding van Outlook krijgt ("U moet eerst een geldig email-adres opgeven voor deze contactpersoon voordat u een e-mail aan het contactpersoon kunt verzenden.")

Het komt vaak voor dat ik een email wil versturen naar een contactpersoon met een IM-adres en hiervoor moet ik eerst de contactpersoon openen, het IM-adres kopiëren en daarna dit email-adres plakken in het nieuwe email-bericht. Dit vindt ik te omslachtig.

Is het mogelijk om direct een email te versturen naar het IM-adres van een contactpersoon? (zodat ik ook gewoon de contactpersoon kan selecteren uit het adres-boek bij het versturen van een nieuwe email)

Ik hoop dat jullie mij kunnen helpen.
i.i.g. vriendelijk bedankt!


[Edit]
Ik kom net dit tegen:

notes that "IMAddress" field is a "Blocked" property. Therefore, it cannot be exported or imported into Outlook. This means that if you export an Outlook Contacts list, you cannot import it back in without loosing the IMAddress field. That's why I use Email3Address (E-mail 3) to store Messenger addresses and leave the IMAddress field blank.

Is er een mogelijkheid om dit te automatiseren? Ik heb geen zin om dit bij elke account handmatig te moeten gaan doen.

[ Voor 20% gewijzigd door TheovdS op 07-05-2008 09:37 ]

[F_J_K]

Is er een mogelijkheid om dit te automatiseren? Ik heb geen zin om dit bij elke account handmatig te moeten gaan doen.

Visual Basic:

Sub SetAffiliationForContacts()
    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem
    Dim colItems As Outlook.Items
    Dim myProperty As Outlook.UserProperty
       
    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)
    Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'")
    
    For Each itemContact In colItems
        ' Add user property to contact items
        Set myProperty = itemContact.UserProperties.Add("Affiliation", olText)
        If itemContact.HomeTelephoneNumber = "" Then
            myProperty = "Business"
        Else
            myProperty = "Personal"
        End If
        itemContact.Save
    Next
End Sub

Dit is het voorbeeld uit de help, dat wil je even aanpassen zodanig dat itemContact.Email3Address wordt gevuld met de inhoud van .IMAddress en .IMAddress wordt geleegd. (Maar natuurlijk alleen als Email3 niet al vol is).

[TheovdS]

Hmmm, lijkt niet te werken in Outlook 2003 (hier op de zaak). Na ff wat rondgezocht te hebben werkt dit alleen in Outlook 2007. Ik heb thuis Outlook 2007, dus dat komt goed uit.
Bedankt!

[TheovdS]

Zo mensen, het is gelukt, deze code heb ik gebruikt:

Visual Basic:

Sub SetAffiliationForContacts()
    Dim ns As NameSpace
    Dim foldContact As Folder
    Dim itemContact As ContactItem
    Dim colItems As Outlook.Items
    Dim myProperty As Outlook.UserProperty
        
    Set ns = Application.GetNamespace("MAPI")
    Set foldContact = ns.GetDefaultFolder(olFolderContacts)
    Set colItems = foldContact.Items.Restrict("[MessageClass]='IPM.Contact'")
     
    For Each itemContact In colItems
        
        If itemContact.IMAddress <> "" Then
        
            itemContact.Email3Address = itemContact.IMAddress
            
            itemContact.IMAddress = ""
            
        End If
        
        itemContact.Save
    Next
    
End Sub

[F_J_K]

offtopic:
Woei

Thanks@update.