Bonjour,
Lorsque j'envoie des mails multiples via une procédure VBA, en utilisant Outlook, je dois confirmer chaque envoi : une fenêtre Outlook s'ouvre : MS Office Outlook. Un programme tente d'envoyer automatiquement du courrier électronique en votre nom. L'autorisez vous à poursuivre? Il y a une temporisation de qelques secondes avant que le bouton à cocher Oui ne soit activer.
Quelqu'un aurait-il une solution pour éviter cela.

Voici le code :
Function EnvoiEnNombre()
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(Email);", cnn

' Sujet du message
strSujet = "Suivi de votre intervention chirurgicale"

' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
strMsg = rst("Patient") & vbCrLf & _
vbCrLf & _
"Dans le but d’assurer un suivi optimal de votre évolution et conscient du fait qu’il ne vous semble plus nécessaire" & vbCrLf & _
"de revenir en consultation vu la date éloignée de votre intervention,voudriez-vous répondre aux questions ci-dessous." & vbCrLf & _
vbCrLf & _
vbCrLf & "Quel est votre poids actuel" & _
vbCrLf & _
vbCrLf & "Etes vous satisfait(e) de l'intervention" & _
vbCrLf & _
vbCrLf & "Si non : pourquoi?" & _
vbCrLf & _
vbCrLf & "Merci pour vos réponses" & _
vbCrLf & _
vbCrLf & "Si vous ne souhaitez plus recevoir ce mail à l'avenir merci de me le faire savoir" & _
vbCrLf & vbCrLf & "signature."

' Envoi du message
DoCmd.SendObject acSendNoObject, , , _
rst("Email"), , , strSujet, _
strMsg, False

' Patient suivant
rst.MoveNext
Wend

' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function


Merci d'avance

Configuration: Windows XP
Internet Explorer 7.0