Gathering of Tweakers

TheovdS

dummy@example.com (TheovdS) — Wed, 07 May 2008 07:21:57 GMT

woensdag 07 mei 2008 09:21
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:

quote:
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.

F_J_K

dummy@example.com (F_J_K) — Wed, 07 May 2008 07:56:43 GMT

woensdag 07 mei 2008 09:56

quote:
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

dummy@example.com (TheovdS) — Wed, 07 May 2008 11:42:25 GMT

woensdag 07 mei 2008 13:42
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

dummy@example.com (TheovdS) — Thu, 15 May 2008 18:34:48 GMT

donderdag 15 mei 2008 20:34
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

dummy@example.com (F_J_K) — Thu, 15 May 2008 19:14:38 GMT

donderdag 15 mei 2008 21:14

offtopic:
Woei

Thanks@update.