Envoi d'un simple message à partir d'une macro EXCEL 2010 via outlook

**Pierre-Henri ROBLOT** · 15/01/2016, 13h50

Bonjour, ma macro bloque à cet endroit : Set Mail = Outlook.CreateItem(0)
Quelqu'un peut m'aider?
D'avance merci

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
21
22
23
24
25
26
27
28
29
30
31
'ENVOI MESSAGE VIA OUTLOOK
Sub Envoi_Mail()
Dim ObjOutlook As Object
Dim Mail As Object
Dim Objet As String
Dim Corps As String
 
Objet = "fichier quotidien"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Le fichier quotidien vient d'être déposé dans votre répertoire :" & _
vbCrLf & vbCrLf & _
"Bonne réception." & _
vbCrLf & vbCrLf & _
"L'équipe Pilotage." & _
vbCrLf & vbCrLf & _
"Envoi automatique." & _
vbCrLf & vbCrLf
 
Set ObjOutlook = CreateObject("Outlook.Application")
Set Mail = Outlook.CreateItem(0)
 
With Mail
.To = "adresse mail à renseigner "
 
.Subject = Objet
.Body = Corps
.Send
End With
End Sub

Invité · 15/01/2016, 14h29

Bonjour,

Vous avez défini ObjOutlook comme l'objet Outlook. Il faut créer votre mail par rapport à cet objet :

Essayez peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Mail = ObjOutlook.CreateItem(0)

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Mail = ObjOutlook.CreateItem(olMailItem)

Cordialement.

**Pierre-Henri ROBLOT** · 15/01/2016, 14h59

Merci pour ta réponse.
Le message est bien envoyé mais j'ai un message me signalant une tentative d'envoi de mail que je dois valider.
Y-a-t-il une possibilité pour éviter ce message ?

**joe.levrai** · 15/01/2016, 15h08

Bonjour,

c'est une sécurité Outlook, afin d'éviter aux macros malveillantes de piloter ton Outlook sans consentement

tu as deux solutions à voir dans l'ordre :

1) si cette fonction n'est pas désactivée :

Menu "Fichier" >> "Option" >> "Centre de gestion de la confidentialité" >> "Paramètres du Centre de gestion de la confidentialité" >> "Accès par programme" >> cocher la case "Ne jamais m'avertir des activités douteuses"

ATTENTION : ton Outlook n'est plus protégé contre les envois de mails non désirés, faut vraiment peser le pour et le contre (ou alors, remettre la sécurité en place après utilisation)

2) simuler l'envoi du mail comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{n}", True

exemple tiré d'une de mes procédures utilisée quotidiennement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With OutMail
        .to = "xx@xx.com"
        .Subject = LeTitre
        .Body = LeCorps
        .Display
        SendKeys "%{n}", True
End With

Je ne demande pas à VBA d'envoyer le mail. Je lui demande de l'afficher et ensuite je simule l'appuie sur le bouton "Envoyer"

c'est pas terrible les simulations de touches ... mais dans ce cas précis c'est le "moins pire" pour moi (utilisation professionnelle avec blocage de modification du point numéro 1)

**Pierre-Henri ROBLOT** · 15/01/2016, 15h44

Tout fonctionne comme souhaité mais cette macro désactive la touche Verr Num.
J'ai mis SendKeys "^{ENTER}" puis SendKeys "^{ENTER}", True mais rien n'y fait.
Une dernière petite solution ?

**joe.levrai** · 15/01/2016, 15h49

Tiens c'est bizarre, j'ai jamais eu ce problème.

il existe une instruction SendKeys dédiée pour la touche Verr Num

essaye d'ajouter ça après le premier SendKeys :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part