Modification incompréhensible destinataire email
Philou9906
-
Philou9906 -
Philou9906 -
Bonjour à vous,
Ceci concerne une macro faite dans Excel.
A la fin du remplissage d'une fiche Excel, ce document est enregistré en version PDF, puis il est mis en pièce jointe à un email.
Pour des raisons qui ne peuvent être changées, ce fichier doit être envoyé à un numéro de FAX.
J'ai une instabilité à ce niveau. Une fois Outlook ouvert, le destinataire est correct.
Soit : [Fax:0123456789]
Seulement après quelques secondes, cela se modifie pour être : 0123456789
Pouvez-vous me dire ce qui se passe ?
Voici la partie de la macro concernée :
Dans l'attente de vos réponses, je vous remercie d'avoir pris un peu de votre temps et vous adresses mes meilleures salutations.
(PS : ne vous arrachez pas les cheveux et ne faite pas de syncope. Cette macro est du bricolage, sans prétention aucune. Merci de votre indulgence.)
Ceci concerne une macro faite dans Excel.
A la fin du remplissage d'une fiche Excel, ce document est enregistré en version PDF, puis il est mis en pièce jointe à un email.
Pour des raisons qui ne peuvent être changées, ce fichier doit être envoyé à un numéro de FAX.
J'ai une instabilité à ce niveau. Une fois Outlook ouvert, le destinataire est correct.
Soit : [Fax:0123456789]
Seulement après quelques secondes, cela se modifie pour être : 0123456789
Pouvez-vous me dire ce qui se passe ?
Voici la partie de la macro concernée :
'Enregistre PDF With Worksheets("Données") CHE = .Range("H4").Value NF = .Range("H5").Value NC = CHE & NF NUM = .Range("G1").Value NFAX = Format(NUM, "0000000000") 'Pour maintenir 10 numéro Dest = "[fax:" & NFAX & "]" Sujet = "Intervention SECUTEL " & .Range("H5") End With Sheets("CRT").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ NC, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ From:=1, To:=1, OpenAfterPublish:=False 'Outlook si nécessaire OUTLOOKSIBESOIN 'Ouvre Outlook si pas déjà ouvert 'Création du mail Set OL = CreateObject("Outlook.Application") Set OLmail = OL.CreateItem(0) With OLmail .To = Dest .Subject = Sujet .Body = "Ce document a pour destination un numéro de FAX. Il est donc inutile d'ajouter quelque chose ici." .Attachments.Add NC .Display End With
Dans l'attente de vos réponses, je vous remercie d'avoir pris un peu de votre temps et vous adresses mes meilleures salutations.
(PS : ne vous arrachez pas les cheveux et ne faite pas de syncope. Cette macro est du bricolage, sans prétention aucune. Merci de votre indulgence.)
A voir également:
- Modification incompréhensible destinataire email
- Suivi de modification word - Guide
- Comment creer un compte email - Guide
- Logiciel gratuit modification pdf - Guide
- Modification dns - Guide
- Facebook piraté et adresse email changé - Guide
Merci pour votre suggestion.
Malheureusement, ça n'est pas celà.
Merci à vous