We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
On Error Resume Next Dim objOL As Object 'check if Outlook is running Set objOL = GetObject(, "Outlook.Application") 'on error start Outlook If Err.Number <> 0 Then ' Err.Clear Shell "C:\Program Files\Microsoft Office\Office14\outlook.exe", vbMinimizedFocus DoEvents End If Set olApp = CreateObject("Outlook.Application") Set olMsg = olApp.CreateItem(0) With olMsg .Subject = "Subject" .body = "Bodytext" .To = "" '.CC = Recipient .Attachments.Add "c:\test.xlsx" .Attachments.Add "c:\test2.xlsx" .Send End With FIN: Set olMsg = Nothing Set olApp = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Need to combine three formulas into one||5||34|
|Modification to nested formula needed||2||24|
|In Excel, select specific rows from a list and place in separate worksheets||9||39|
|office 2010 not starting even in safe mode||9||97|