Sub CreateMailInExcelEarlyBound()
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Set olApp = New Outlook.Application
Set Msg = olApp.CreateItem(olMailItem)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Outra técnica:
Sub CreateMailInExcelLateBound()
Dim olApp As Object
Dim Msg As Object
Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)
Msg.Display
Set Msg = Nothing
Set olApp = Nothing
End Sub
Question
André Luiz Bernardes 0
Link to post
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.