Gathering of Tweakers

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.

TheovdS wijzigde dit bericht 07-05-2008 09:37 (20%)

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:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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).

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!

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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