Message de sécurité à l'envoi de message en VBA

Version imprimable

12/06/2010, 16h39
galopin01

Message de sécurité à l'envoi de message en VBA

Citation:

Envoyé par apacheblanc

Hello,

A present, j'ai un bug sur mon outlook, car la protection me demande mon autorisation a chaque mail envoyé..lol, je vais plager la dessus.

Oups, c'est parti trop vite... J'ai le même problème de message indésirable.
Je suis preneur de la solution si elle existe !
A+
14/06/2010, 12h21
pc75

Bonjour,

Tu as regardé ici => http://www.developpez.net/forums/d91...el-envoi-mail/
21/06/2010, 10h59
o.deb

sinon (moins pratique), il faut exécuter la macro dans Outlook au lieu d'Excel, ça ne demandera rien, mais à ce moment-là il faudra ensuite sélectionner le classeur Excel avec getOpenFileName()

Salut,

Il y a une solution plus simple.
Si Outlook est ouvert, il suffit d'intercepter l'instance ouverte pour éviter ce message.

Un exemple de code fait au départ de Word.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub EnvoyerMsg()
Dim oApp As Outlook.Application
Dim oMsg As Outlook.MailItem
 
Set oApp = Outlook.Application
Set oMsg = oApp.CreateItem(olMailItem)
With oMsg
    .To = "Desti.nataire@fournisseur.fr"
    .Subject = "Sujet de test"
    .BodyFormat = olFormatHTML
    .Body = " http://heureuxoli.developpez.com " 
End With
 
oMsg.Send
Set oMsg = Nothing
Set oApp = Nothing
 
 
End Sub