Envoyer un fichier Excel avec un boutton

Bonjour,

je souhaite envoyer un fichier excel par mail avec un boutton en VB ca marhe avec le code suivant que j'ai yrouvé sur le net:
 
Private Sub CommandButton1_Click()

Dim appoutlook As Outlook.Application
Dim message As Outlook.mailitem
Dim myrecipients As Object

Set appoutlook = CreateObject("outlook.application")
Set message = appoutlook.createitem(olmailitem)

With message
.Subject = "START CYCLER"
.body = "START CYCLER FWxx.x"
.Recipients.Add ("@HEALTH gxre vasc Cycler")
.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

.Display
End With
Set appoutlook = Nothing
End Sub

mais j'ai un message qui s'affiche "A program is trying to to access e-email addresses you have stored in Outlook. Do you want to allow this?"
et je dois cliqued sur yes deux fois pour que ca marche!!!
comment je peux faire pour ne pas avoir ce message? Merci Beacoup d'avance.

vous êtes forts

Salut kamGE,

si c'est juste pour un poste, il me semble qu'il s'agit peut-être là d'un paramètre de sécurité accessible via les options d'Outlook (genre sécurité des pièces jointes ou même de la zone internet puisqu'il s'agit d'automation/com).

déjà vu, contourné en ne faisant pas envoyer les mails par les clients, mais par les serveurs (si tu as des serveurs).

à+

rvblog^{n
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!}