ExcelBanter - Return to MS Excel

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Return to MS Excel (https://www.excelbanter.com/excel-programming/301567-return-ms-excel.html)

Poh

Return to MS Excel

Hi!

Question: After manage to send email from MS Excel using
the following code:

ActiveSheet.Range("A1:J9").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = strTo
.Item.Subject = strSubject
.Item.Send
End With

But focus of the screen was 'stuck' in MS Outlook, how
can i get the focus back to MS Excel using VB?

Thanks

Tom Ogilvy

Return to MS Excel

appActivate "Microsoft Excel"

--
Regards,
Tom Ogilvy

"Poh" wrote in message
...
Hi!

Question: After manage to send email from MS Excel using
the following code:

ActiveSheet.Range("A1:J9").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = strTo
.Item.Subject = strSubject
.Item.Send
End With

But focus of the screen was 'stuck' in MS Outlook, how
can i get the focus back to MS Excel using VB?

Thanks

Poh[_2_]

Return to MS Excel

Million of thanks, it work!!

-----Original Message-----
appActivate "Microsoft Excel"

--
Regards,
Tom Ogilvy

"Poh" wrote in message
...
Hi!

Question: After manage to send email from MS Excel
using
the following code:

ActiveSheet.Range("A1:J9").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = strTo
.Item.Subject = strSubject
.Item.Send
End With

But focus of the screen was 'stuck' in MS Outlook, how
can i get the focus back to MS Excel using VB?

Thanks

.

All times are GMT +1. The time now is 03:33 AM.