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

Version imprimable

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

Code:

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

15/01/2016, 13h29
Invité

Bonjour,

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

Essayez peut-être

Code:

Set Mail = ObjOutlook.CreateItem(0)

sinon

Code:

Set Mail = ObjOutlook.CreateItem(olMailItem)

Cordialement.
15/01/2016, 13h59
Pierre-Henri ROBLOT

C'est bon mais....

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 ?
15/01/2016, 14h08
joe.levrai
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:

SendKeys "%{n}", True

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

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)
15/01/2016, 14h44
Pierre-Henri ROBLOT

On approche la perfection

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 ?
15/01/2016, 14h49
joe.levrai

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:

SendKeys "{NUMLOCK}", True
15/01/2016, 15h00
Pierre-Henri ROBLOT

Génial, tout fonctionne à la perfection

Génial, tout fonctionne à la perfection

Un grand merci