Envoie automatique de mail sans l'accord de outlook
Bonjour,
j'ai fais déjà pas mal de forum pour comprendre mais j'ai quand même besoin de votre aide.
Mon code est plutôt assez simple et fonctionnel, mais je n'arrive pas à enlever cette petite fenêtre qui me demande d'accepter ou de refuser car un programme essaie d’accéder aux informations d'adresse de messagerie enregistrées dans Outlook.
Auriez vous une idée?
D'avance merci!
Vincent
Sub ExporterFeuilleActivePDF()
With Worksheets("Rapport")
'---------------------------------> Enregistrement du PDF
Date_F = Format(.Range("K3"), "YYYY_MM_DD")
rep = "O:\Projekte\02. 2017\01. En cour\TPS - CTMS\04. Rapport"
fichier = "\" & Date_F & "_" & .Range("Q3") & "_" & .Range("R3") & "_" & "N°_" & .Range("S1") & ".pdf"
Chemin = rep & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
'---------------------------------> Envoie du PDF
Set olApp = CreateObject("Outlook.application")
Set mail = olApp.CreateItem(olMailItem)
With mail
.display
.To = Sheets("Adresse").Range("B3")
.Subject = "TPS - Rapport dépassement temps"
.htmlBody = "trtzr" & Sheets("Rapport").Range("A18") & .htmlBody
.Attachments.Add Chemin
.display
'.send
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End With
'---------------------------------> Impression du PDF
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
' IgnorePrintAreas:=False
End With
End SubBonjour,
une piste...
Onglet 'Développeur' dans le ruban
Clique sur le bouton 'Sécurité des macros' dans le groupe 'Code'
Coche l'option 'Accès approuvé au modèle d'objet du projet VBA'
Tu as les options de sécurité des macros sur la même page
Clique sur le bouton OK pour valider
Hiii non, ça ne fonctionne pas!
Yes!!!!! encore une fois merci
Ca marche avec la deuxième méthode!!!