oceanex
XLDnaute Nouveau
Bonjour à tous
j'aimerais pouvoir envoyer un fichier par email via VBA, mais j'ai toujours le message suivant
un programme tente d'envoyer un message électronique en votre nom. Si cette action est inattendue, cliquez sur refuser, etc..
voici la partie de mon code qui genere le mail
sa fonctionne super bien, mais il faut que l'usager clique sur accepter a chaque fois et la boucle se fait environ 10 fois ce qui rend le programme "lourd"
j'ai tenté de modifié les sécurité dans Outlook, dans le centre de sécurité --> accès par programme-->tout autorisé mais sa ne fonctionne pas. (note je suis sur un domaine et j'ai peut être des policie qui écrase cette valeur ou c'est juste moi qui ne regarde pas à la bonne place ;-))
j'ai pensé passé par CDO, j'ai essayé un paquet de code mais bouette, je n'y arrive pas.
j'avoue je suis découragé et je voudrais vous demandez un petit coup de main.
est ce que je peux utiliser le CDO avec un serveur Exchange ?
et est ce que je peux inscrire l'adresse ip du serveur au lieu du nom ?
c'est sur que si je pouvais juste "empêché" le message d’apparaître se serait le plus simple.
Merci beaucoup !
Geneviève
j'aimerais pouvoir envoyer un fichier par email via VBA, mais j'ai toujours le message suivant
un programme tente d'envoyer un message électronique en votre nom. Si cette action est inattendue, cliquez sur refuser, etc..
voici la partie de mon code qui genere le mail
Code:
If generateemail = "Y" Then
Dim Destinataires As String, Sujet As String
Dim AccuseReception As Boolean
Dim suc
Windows(classeurvba).Activate
suc = Worksheets("qui recoit").Range("E4").Value
Destinataires = Worksheets("qui recoit").Range("E5").Value
Workbooks.Open Filename:= _
cheminfichier & "\" & suc
Sujet = "Envoi " & suc & " pour les dates suivantes: " & date1 & " au " & date4 & " " & pagevtejrn
AccuseReception = False
ThisWorkbook.Sheets(pagevtejrn).Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End If
j'ai tenté de modifié les sécurité dans Outlook, dans le centre de sécurité --> accès par programme-->tout autorisé mais sa ne fonctionne pas. (note je suis sur un domaine et j'ai peut être des policie qui écrase cette valeur ou c'est juste moi qui ne regarde pas à la bonne place ;-))
j'ai pensé passé par CDO, j'ai essayé un paquet de code mais bouette, je n'y arrive pas.
j'avoue je suis découragé et je voudrais vous demandez un petit coup de main.
est ce que je peux utiliser le CDO avec un serveur Exchange ?
et est ce que je peux inscrire l'adresse ip du serveur au lieu du nom ?
c'est sur que si je pouvais juste "empêché" le message d’apparaître se serait le plus simple.
Merci beaucoup !
Geneviève
Dernière édition: