Hassle-free live chat software re-imagined for business growth. 2 users, always free.
Sub SendDocumentInMail() Dim bStarted As Boolean 'Dim oOutlookApp As Outlook.Application 'Dim oItem As Outlook.MailItem On Error Resume Next 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then 'Outlook wasn't running, start it from code Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for the new email .To = "email@example.com" 'Set the recipient for a copy .CC = "firstname.lastname@example.org" 'Set the subject .Subject = "New subject" 'The content of the document is used as the body for the email .Body = ActiveDocument.Content .Send End With If bStarted Then 'If we started Outlook from code, then close it oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub
|Tick mark is not visible on the shared mailbox - when the job is completed and marked as complete||8||50|
|address book on outlook 2016 mac||7||46|
|Emergency issue with outlook 2007||3||23|
|Share Outlook Calendar color disappear in outlook 2016||3||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!