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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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...
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...
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...
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...
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...
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...
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
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
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
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
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 = ""
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
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
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 = ""
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 = ""