Macro pour une cocaténation d'adresse

Bonjour,

Je voudrais créer une macro ou une fonction qui me permettrait de
cocaténer le numéro du mobile avec une chaîne de caractères pour
l'inscrire encuite dans un champ que je pourrait utiliser sur
l'adressage de mes courrier.

soit un peu plus précis
où se trouve ce numéro de mobile,
quelle chaine ?
etc...

Le numéro de mobile se trouve dans le champ téléphone mobile de contact et je
voudrais ajouter la chaîne @sms-xd.fr pour ensuite le placer dans le champ
adresse de messagerie 3

merci à l'avance

Bonjour,

Je voudrais créer une macro ou une fonction qui me permettrait de
cocaténer le numéro du mobile avec une chaîne de caractères pour
l'inscrire encuite dans un champ que je pourrait utiliser sur
l'adressage de mes courrier.

soit un peu plus précis
où se trouve ce numéro de mobile,
quelle chaine ?
etc...

Bonjoir© Mimosa

Le 14/12/2005 18:57 vous avez écrit... :

Le numéro de mobile se trouve dans le champ téléphone mobile de contact et je
voudrais ajouter la chaîne @sms-xd.fr pour ensuite le placer dans le champ
adresse de messagerie 3

Moi je vous conseillerai d'exporter les contacts vers Excel, d'y ajouter
votre chaine et de réimporter... ça me semble bien plus facile que de
macroter pour obtenir la même chose, non ?

merci à l'avance

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Le numéro de mobile se trouve dans le champ téléphone mobile de
contact et je voudrais ajouter la chaîne @sms-xd.fr pour ensuite le
placer dans le champ adresse de messagerie 3

donc en fait tu veux mettre à jour ton carnet d'adresse contact avec cette

concaténation ?

Essaye cela
à toi d'adapter si tu as des +33 etc...

Sub ContactmajEmail3()
'pour mettre à jour un champ ici l'email 3
'Oliv' le 15122005

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
strWhere = "[MobileTelephoneNumber] >''"
Set myItems = myContacts.Restrict(strWhere)
For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox myItem.FullName & ": [" & myItem.MobileTelephoneNumber & "]"
concat = Replace(Replace(Replace(myItem.MobileTelephoneNumber, " _
", ""), "(", ""), ")", "") & "@sms-xd.fr"
myItem.Email3Address = concat
myItem.Save
concat = ""

End If
Next
End Sub

Merci beaucoup ; il ne me reste plus qu'à essayer.

A bientôt

Le numéro de mobile se trouve dans le champ téléphone mobile de
contact et je voudrais ajouter la chaîne @sms-xd.fr pour ensuite le
placer dans le champ adresse de messagerie 3

donc en fait tu veux mettre à jour ton carnet d'adresse contact avec cette

concaténation ?

Essaye cela
à toi d'adapter si tu as des +33 etc...

Sub ContactmajEmail3()
'pour mettre à jour un champ ici l'email 3
'Oliv' le 15122005

Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
strWhere = "[MobileTelephoneNumber] >''"
Set myItems = myContacts.Restrict(strWhere)
For Each myItem In myItems
If (myItem.Class = olContact) Then
MsgBox myItem.FullName & ": [" & myItem.MobileTelephoneNumber & "]"
concat = Replace(Replace(Replace(myItem.MobileTelephoneNumber, " _
", ""), "(", ""), ")", "") & "@sms-xd.fr"
myItem.Email3Address = concat
myItem.Save
concat = ""

End If
Next
End Sub