Send sheet as Outlook attachment

Originally Posted by Greg M

Hi there,

Try the following code and see if it does what you need:

Public Function SendEmail()

    Dim objOutlook      As Object
    Dim objEmail        As Object

    Dim vDataRange      As Variant

    Dim sTemporaryFile  As String
    Dim sCopiesTo       As String
    Dim sMailText       As String
    Dim sSubject        As String
    Dim sSendTo         As String

    On Error GoTo ErrorEncountered

'   Enter a valid location for the temporary file and then save a copy of this file to it
    sTemporaryFile = "N:\My Documents\Joe Various\Temporary File.xls"
    ThisWorkbook.SaveCopyAs Filename:=sTemporaryFile

'   Enter a valid email location
    sSendTo = "joe.bloggs.@somewhere.com"

    sSubject = "Mail"
    sMailText = "Please find report attached" & vbCrLf & "Regards" & vbCrLf & "Joe"

'   Check whether or not Outlook is already running, and if not, open it
    On Error Resume Next
        Set objOutlook = GetObject(, "Outlook.Application")
    On Error GoTo ErrorEncountered

    If objOutlook Is Nothing Then
        Set objOutlook = CreateObject("Outlook.Application")
    End If

'   Create email
    Set objEmail = objOutlook.Createitem(0)
    With objEmail
        .Subject = sSubject
        .to = sSendTo
        .cc = sCopiesTo
        .body = sMailText
        .attachments.Add (sTemporaryFile)
        .display
        .send
    End With

'   Delete the temporary file (it's already been sent as an email attachment)
    Kill sTemporaryFile

'   Clear all data fields (Note - using merged cells makes this more complicated!)
    For Each vDataRange In Array("D3:E3", "I3:J3", "N3", "E8:E19", "L8:N21")
        ActiveSheet.Range(vDataRange).ClearContents
    Next vDataRange

    MsgBox "Your email has been sent", vbInformation
       
    Set vDataRange = Nothing
    Set objOutlook = Nothing
    Set objEmail = Nothing

    Exit Function

ErrorEncountered:

    MsgBox "An error was encountered", vbCritical

End Function

Hope this helps - please let me know how you get on.

Regards,

Greg M

Greg,

Thanks very much for your quick reply its really appreciated. However, I seem to have a slight problem as when I run it, I get the "Error Encountered" message.

I think it may be because I haven't correctly completed the part where you state "Enter a valid location for the temporary file and then save a copy of this to file to it".

I dont quite understand exactly what I need to do in this respect as I am still on a learning curve, not sure what is meant by the temp file?

Would it be possible for you to explain step by step what I need to do in this respect please.

Thanks for your time

Hi again,

The "permanent" file is the original workbook which you've created, and which normally doesn't store the visitor's details. The "temporary" file is just a saved copy of this "permanent" file in which the current visitor's details have been entered.

The "temporary" file is appended to the email as an attachment, and is then deleted once the email has been sent. In a relatively simple situation such as this you could in fact send the "permanent" file as an attachment, and dispense with the "temporary" file, but the method I posted is one which I used in a more complex situation.

Now - let's try to find out where the problem is occurring!

Go into the VBA Editor, and place the cursor anywhere within the code of the SendEmail function. Now press key F8. You'll see that the first (i.e. Function Declaration) line of the routine is highlighted.

Press the F8 key once again and you'll see that the first executable line (i.e. On Error GoTo ErrorEncountered) of the routine is highlighted. Continue to press the F8 key, and note the line where pressing this key causes the program execution to jump to the "MsgBox "An error was encountered", vbCritical" statement - this is the line which is causing the problem.

When you've identified the "problem line", have a look at its code and see if there's anything obviously wrong with it - e.g. a reference to a non-existent filepath etc. If you can identify and solve the problem yourself, that's great - otherwise let me know which line is involved and I'll see what I can do.

Regards,

Greg M

Originally Posted by Greg M

Hi again,

The "permanent" file is the original workbook which you've created, and which normally doesn't store the visitor's details. The "temporary" file is just a saved copy of this "permanent" file in which the current visitor's details have been entered.

The "temporary" file is appended to the email as an attachment, and is then deleted once the email has been sent. In a relatively simple situation such as this you could in fact send the "permanent" file as an attachment, and dispense with the "temporary" file, but the method I posted is one which I used in a more complex situation.

Now - let's try to find out where the problem is occurring!

Go into the VBA Editor, and place the cursor anywhere within the code of the SendEmail function. Now press key F8. You'll see that the first (i.e. Function Declaration) line of the routine is highlighted.

Press the F8 key once again and you'll see that the first executable line (i.e. On Error GoTo ErrorEncountered) of the routine is highlighted. Continue to press the F8 key, and note the line where pressing this key causes the program execution to jump to the "MsgBox "An error was encountered", vbCritical" statement - this is the line which is causing the problem.

When you've identified the "problem line", have a look at its code and see if there's anything obviously wrong with it - e.g. a reference to a non-existent filepath etc. If you can identify and solve the problem yourself, that's great - otherwise let me know which line is involved and I'll see what I can do.

Regards,

Greg M

Hi Greg,

Thanks for your patience and clear advice, it runs and works perfect, I didn't have the correct file location on the first attempt which caused the error.

I now have just one slight problem though, I can't seem to get the macro to work from the Send button; not sure if I am doing something wrong. I've even tried to 'assign macro' to an alternative button from Drawing but when I look in the available macros box there is no macro showing for some reason. I do not normally have a problem in assigning a macro to a button.

Would it be possible to explain how to connect the macro to the button please.

Thanks very much for your time

Hi Jessy,

I think I see your problem!

Your original workbook contained the code :

Private Sub CommandButton1_Click()
    SendEmail
End Sub


Public Function SendEmail()
Many lines of code here

End Function

Now, when you try to assign a routine to a button, the FUNCTION will not appear in the list of available macros (because it's not a "Sub" procedure), and the SUB will not appear because it's been declared as "Private".

So, either declare the SUB as a "Public" procedure, or (better!) convert the FUNCTION to a "Public Sub" procedure. Just use:

Public Sub SendEmail()

The "End Function" statement will be converted automatically to "End Sub".

This should allow the procedure to appear in the list of available macros so that you can assign it to whichever object you want.

Please let me know how you get on with this.

Regards,

Greg M

Hi Greg,

Thanks for Date inclusion code advice, it works fine.

Regarding the flashing Msg Box in the Taskbar which has to be clicked to obtain the message; it's strange that when I run it from the button - it flashes, however when I run it from within the code it doesn't for some reason and the Msg Box appears in the middle of the screen as normal (on both versions).

If as you say there is no way around this peculiarity then I don't want you to waste your time unduly on it. You have been most helpful with your advice and I am very grateful.

Cheers,

J

Hi Jessy,

Many thanks for your feedback. I'm glad you found my suggestions helpful.

Regarding your comment:

If as you say there is no way around this peculiarity ...

Please note that I'm not saying there IS no way around it, just that I'm not aware of any - big difference!

Best regards,

Greg M

Originally Posted by Greg M

Hi Jessy,

Many thanks for your feedback. I'm glad you found my suggestions helpful.

Regarding your comment:


Please note that I'm not saying there IS no way around it, just that I'm not aware of any - big difference!

Best regards,

Greg M

Hi Greg,

Just to let you know that I've solved the problem regarding the MsgBox flashing in the taskbar instead of on the form. It seems that it was caused by me using a Control Box button instead of a Forms button. It works fine now that I've changed it.

Best Regards,

J

Hi Jessy,

Many thanks for taking the trouble to send me that feedback - I'll make a careful note of it for future reference!

I'm glad I was able to help.

Best regards,

Greg M