BSALV
Banned user
- Joined
- Oct 31, 2010
- Messages
- 1,651
- Office Version
- 365
- 2013
- 2007
when you prepare mails in excel for Outlook, you can choose display, save and send.
Normally Outlook doesn't allow the "send", it comes with a popup that an external programs tries to send and you can agree or disagree ...
If you use "display" instead and manually do CTRL+Enter, the mail is send.
I try to do that now with Application.SendKeys ("^{Enter}"), True but that doesn't work.
How do you send 10-20 mailings at once without interfering.
Normally Outlook doesn't allow the "send", it comes with a popup that an external programs tries to send and you can agree or disagree ...
If you use "display" instead and manually do CTRL+Enter, the mail is send.
I try to do that now with Application.SendKeys ("^{Enter}"), True but that doesn't work.
How do you send 10-20 mailings at once without interfering.
VBA Code:
Select Case Range("Mailmethode").Value
Case "Display": .display 'zo alle 5 en dan in 1 keer
Case "Send"
.display
DoEvents
Application.Wait (Now + TimeSerial(0, 0, 5)) 'wacht een beetje
DoEvents
Application.SendKeys ("^{Enter}"), True 'hopelijk werkt de CTRL+Enter 'zo 1 per 1 doorzenden"
DoEvents
Application.Wait (Now + TimeSerial(0, 0, 10)) 'wacht een beetje
DoEvents
Case "Save": .Save 'opslaan als concept
End Select