OVH Cloud OVH Cloud

Macro pour une cocaténation d'adresse

5 réponses
Avatar
Mimosa
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.



Merci

5 réponses

Avatar
Oliv'
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...

Avatar
Mimosa
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...






Avatar
JièL Goubert
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

Avatar
Oliv'
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

Avatar
Mimosa
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