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
- Modification dns - Guide
- Logiciel gratuit modification pdf - Guide
- Facebook piraté et adresse email changé - Guide
Merci pour votre suggestion.
Malheureusement, ça n'est pas celà.
Merci à vous