
Application.ActivateMicrosoftApp xlMicrosoftMail |
Option Explicit
Sub activate_Outlook()
Application.ActivateMicrosoftApp xlMicrosoftMail
End Sub
Sub close_Outlook()
Dim olApp As Object
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then Exit Sub
olApp.Quit
Set olApp = Nothing
End Sub
Sub activate_menu_file_in_outlook()
Dim olApp As Object
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then Exit Sub
AppActivate "Posta in arrivo"
SendKeys "%"
End Sub |
