Discussion :

[xillibit]

Bonjour,

Sur une machine disposant d'outlook 2003, je dois mettre en place une macro qui en appuyant sur deux touches sur le clavier puisse envoyer automatiquement un mail. Je suis en train de faire des tests avec la macro suivante :

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
Sub SendMail_Outlook()
 
   Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = "destinataire@mail.com"
      .Subject = "test"
      .Importance = 2
      .Body = "Contenu "
      .Display
      .Send
 
   End With
End Sub

J'ai deux questions :

• Comment envoyer le message en importance haute ? J'ai trouvé comment faire, grâce à .Importance = 2, j'ai modifié la macro en conséquence
• Quand j’exécute la macro, il m'ouvre une boite de dialogue pour confirmer l'envoi (voir image ci-dessous). Est-ce qu'il y aurait une possibilité de bypasser cette boite de dialogue ?

Merci d'avance

[Oliv-]

Bonjour,
Le programme est bien lancé de OUtlook ? si oui comme cela :

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
Sub SendMail_Outlook()
 
   Dim ol As  Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = "destinataire@mail.com"
      .Subject = "test"
      .Importance = 2
      .Body = "Contenu "
      .Display
      .Send
 
   End With
End Sub

[xillibit]

Bonjour,

Merci pour la réponse, oui je lance la macro depuis outlook

Je viens d'essayer votre code et cela fonctionne sans ouvrir la boite de dialogue