Bonjour,
Tu as regardé ici => http://www.developpez.net/forums/d91...el-envoi-mail/
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 !
Partager