Discussion :

[Arobase67]

Bonsoir à tous


Je me permets de solliciter vos lumières concernant un point d'un projet que je mène, et pour lequel je pense qu'une macro Outlook pourrait répondre pleinement à ma problématique. Cependant j'aimerais m'assurer auprès d'experts du domaine que ce que j'imagine est possible, avant de vouloir creuser la chose par moi-même, et donc éviter une potentielle perte de temps

Alors voilà, déjà le contexte global : je travaille dans un contexte où est en place une architecture mail Exchange 2010. Le détail de l'architecture importe peu. Nous sommes en train de mettre en place une solution fax numérique vouée à remplacer le parc de fax analogiques.

Dans le cadre de ce projet nous cherchons à exploiter de manière directe le(s) numéro de fax présent(s) dans les contacts personnels OL des end users : lorsque l'on rédige un message sous outlook, et que l'on fait appel aux contacts personnels en cliquant sur le bouton "To", puis en sélectionnant le carnet d'adresse personnel, un contact personnel disposant par exemple d'une adresse mail et d'un numéro de fax sera représenté par deux lignes, une pour le mail, et une pour le fax. En sélectionnant le fax le contact personnel va être implémenté en destinataire, avec le numéro de fax lié.
Cependant forcément c'est un simple numéro de téléphone, et manque le suffixe mail pour que le routage (puis traitement) puis être effectué type "@fax.contoso.com".
Le traitement le plus logique pour ce cas me parait être un traitement coté client, et donc potentiellement par VBA.

Je me dis donc que la solution donc pour nous, au lieu de par exemple imaginer dupliquer le numéro de fax dans un champs contact type mail en implémentant le suffixe (et donc créer du doublon d'info), pourrait être de traiter le rajout du suffixe à la volée, dans le cas où un numéro de téléphone est positionné comme destinataire d'un mail, pour que la chose deviennent complètement transparente pour le end user.

Est-ce techniquement possible ? Un grand merci d'avance pour votre aide

[Oliv-]

Bonjour,
En utilisant l'événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

tu dois pouvoir le faire,
il faut juste vérifier si la propriété item.recipients(i).address de chaque destinataire
correspond à un numéro de téléphone
le problème c'est la forme du numéro
: Address : "+33 (0) 6 07 38 01 10" : String : ThisOutlookSession.Application_ItemSend
: Address : "06 80 70 90 90" : String : ThisOutlookSession.Application_ItemSend

Tu peux vérifier l'absence de @ déjà et vérifier si les 9 derniers caractères sans espace sont des chiffres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 if instr(1,item.recipients(i).address,"@",vbTextCompare) = 0 then 
'pas Email mais ca peut être une adresse Exchange
if IsNumeric(right(replace(item.recipients(i).address," ",""),9) then
'ok c'est un téléphone
item.recipients(i).address=replace(item.recipients(i).address," ","")&"@fax.contoso.com"
end if
else
'Email
End if

[Arobase67]

Bonjour Oliv-,

Merci beaucoup déjà pour ces explications / précisions

Concernant le format du numéro de fax nous allons quoi qu'il arrive consolider en amont (via webservices) l'intégralité des numéros, ceux-ci seront tous au format E164, donc du +33123456789.
J'imagine donc que pour blinder le truc on peut comme tu le suggères tester l'absence d'arobase, puis tester les 9 derniers digit, et également tester le premier digit qui doit être un "+"

Merci en tout cas une nouvelle fois pour ta confirmation que c'est faisable, ainsi que pour ton bout de code qui m'aide déjà beaucoup. Je vais essayer de me dépatouiller par moi-même à présent, et je reviendrai par ici si je rencontre des soucis