The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
Sub Email() Dim ol As Object 'outlook application object Set ol = CreateObject("Outlook.Application") 'create an instance of the outlook application Dim olItem As Object 'outlook mail object Set olItem = ol.CreateItem(0) 'create an instance of an outlook mail object...the 0 indicates you are creating an emial 'using the email object With olItem .To = "email@example.com" 'email addressee .Subject = "Subject" 'email subject .Body = "Message" 'email message .Attachments.Add ActiveDocument.FullName 'full path and name of active document to attach to the email .Display 'show the email (user need to click the send button) '.Send 'sends the email (Outlook security prompt will appear) End With 'clear the outlook mail object Set olItem = Nothing 'clear the outlook application object Set ol = Nothing End Sub
|Saving document in Word 2007/2010 format using MS Word 2013||6||53|
|How to take a hard copy form and make it a fillable soft form?||9||46|
|Remove all hidden metadata properties of MS .Docx Files||7||38|
|word 2016 spell check||3||4|