I am at work and made a macro to do some simple automation of some daily reports I have to do. Everyday I have to send this report to one person and CC it to 3 different people. I wanted to include this in the current Macro.

Is there some way in the code to add this so that it automatically opens Microsoft Outlook and makes this an attachment?

Thanks,

~J

I hope that it help You resolve your problem:
Sub POCZTA0()
Dim myattachment
Dim olNs As Object
Dim olMailItem
Dim olMail As Object
Dim olApp As Object
Dim ATTACH1 As String


ATTACH1 = Application.GetOpenFilename("Text Files (*.*), *.*")
Set olApp = CreateObject("Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Set olMail = olApp.CreateItem(olMailItem)
olMail.Display

olMail.To = "[email protected]"
olMail.CC = "[email protected];" & "[email protected];" & "[email protected];"
'olMail.BCC =
olMail.Subject = "Your subject"
olMail.Body = vbCr & vbCr & "Your body text" & vbCr & vbCr

Set myattachment = olMail.Attachments
myattachment.Add ATTACH1
olMail.Send
olNs.Logoff
Set olNs = Nothing
Set olMail = Nothing
Set olApp = Nothing
End Sub
BR/
Kazik

sorry for taking so long to respond back, thanks for the help!

When I try to use the code below, is it supposed to just allow me to pick what I want to attach? Is there anyway to have it just pick the file that I am already in?

ATTACH1 = Application.GetOpenFilename("Text Files (*.*), *.*")

Thanks,

~J

Hi,
I suppose that code (POCZTA0)is in file which You want send.
If yes, try it.
ATTACH1 = ThisWorkbook.FullName