Discussion :

[Pierre-Henri ROBLOT]

Bonjour,
Je viens de passer de Lotus à Outlook 2010.
J'ai une macro Excel qui en fin de traitement envoie mon classeur excel par "Outlook"
La procédure se déroule sans problème mais le mail reste en attente d'un clic sur le bouton "Envoyer" de Outlook
Avez-vous une solution pour Valider, Forcer l'envoi de mon mail ?
D'avance merci pour votre aide.

[QuestVba]

Bonjour

voici une piste

Code :

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

SendKeys "%{s}"

ou

Code :

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

1
2
.Display
SendKeys "^{ENTER}"

Déjà vu le code suivant SANS avoir testé ! Donc, chercher, tester, mettre à sa sauce, ...

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
Sub Mailer()
Sheets("BB Email Data").Select
pathname = [b11].value 'defines attachment
dname = [b14].value 'defines date for subject
Dim objol As New outlook.Application
Dim objmail As MailItem
Set objol = New outlook.Application
Set objmail = objol.createitem(olmailitem)
    With objmail
        .To = "whoever" 'enter in here the email address
        .cc = "whoever" 'enter in here the email address
        .Subject = "Daily test email for  " & dname
        .Body = "Please find attached the teste email" & _
            vbCrLf & "If you have any queries can you please let me know" & vbCrLf
        .NoAging = True
        .Attachments.Add pathname 'adds attachment to email
        .display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    SendKeys "%{s}", True 'send the email without prompts
 
End Sub

[Pierre-Henri ROBLOT]

Merci beaucoup,
Le code
.Display
SendKeys "^{ENTER}"
Fonctionne très bien mais il dévérouille la touche Verr Num

Le code
SendKeys "%{s}" ne fonctionne pas. Dois-changer le {s} ?

[QuestVba]

Non erreur

Code :

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

SendKeys "%{s}", True

Le code
.Display
SendKeys "^{ENTER}"
Fonctionne très bien mais il dévérouille la touche Verr Num

Déterminer la valeur de la touche VERR. NUM avant d'utiliser SendKeys. Ensuite, désactivez la touche VERR NUM avant d'utiliser SendKeys. Après l'utilisation de SendKeys, réinitialiser la touche VERR NUM à sa valeur précédente. Utilisez pour cela les fonctions GetKeyboardState, keybd_event et SetKeyboardState API.

Regarde ici.

[Pierre-Henri ROBLOT]

Merci beaucoup c'est parfait