Send as attachement

[smods]

Hi guys,

I have a worksheet which users fill in. I want to put a command button on it which when clicked will e-mail the file as an attachment but not send it and not specify any specific e-mail address.

So I click the button it opens an e-mail in outlook with the file attached ready for me to type my recipients in.

I also want to add some validation. So if B1 is blank then and the user clicks to e-mail then it says hang on B1 is blank or if B5 is empty, hang on B5 is empty

Any help would be much appreciated

Chris

 

[njimack]

For info on sending an email from Excel, see http://www.rondebruin.nl/sendmail.htm

To test that B1 isn't blank, simply use:

If Range("B1") <> "" Then
Msgbox "You haven't filled in cell B1"
Exit Sub
End If
'the rest of your code goes here

 

[smods]

So if I want to use

[FONT=Arial][B]Sub Mail_workbook_Outlook_1()[/B][COLOR=#000080]'Working in 2000-2007'This example send the last saved version of the Activeworkbook[/COLOR]    Dim OutApp As Object    Dim OutMail As Object[/FONT]</PRE>
 </PRE>
[FONT=Arial]    Set OutApp = CreateObject("Outlook.Application")    OutApp.Session.Logon    Set OutMail = OutApp.CreateItem(0)[/FONT]</PRE>
 </PRE>
[FONT=Arial]    On Error Resume Next    With OutMail        .To = "ron@debruin.nl"        .CC = ""        .BCC = ""        .Subject = "This is the Subject line"        .Body = "Hi there"        .Attachments.Add ActiveWorkbook.FullName[COLOR=#000080]        'You can add other files also like this        '.Attachments.Add ("C:\test.txt")[/COLOR]        .Send  [COLOR=#000080] 'or use .Display[/COLOR]    End With    On Error GoTo 0[/FONT]</PRE>
 </PRE>
[FONT=Arial]    Set OutMail = Nothing    Set OutApp = NothingEnd Sub[/FONT]</PRE>

How to do I do this with the validation mentioned? What is the full code, I'm moving bits about but I just can't get the code to work due to my lack of knowledge. Please help Chris!

 

[njimack]

The code I posted will go before the code from the website I directed you to. If B1 is blank, a message box will be displayed and the code will terminate. The next part of the code (from the website) will only run if B1 is not blank.