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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager