I am looking to email an excel sheet using a vb macro. The reciprient's
email address needs to be copied from a cell in the sheet. This sheet
can either be sent as an attachment or sent within the email. Can
anyone help with vb examples.
Thanks

Hi,

have a look at www.rodebruin.nl

Regards,
Ivan

sorry, mistyped:

www.rondebruin.nl

Regards,
Ivan

I have tried a number of his macros however I have been unsuccessful as
the debug appears on the send mail each time. Any ideas?
Thanks

.SendMail ActiveSheet.Range("a1").Value, _
"This is the Subject line"

Hi,

you posted inside part of with .. end with statement.

What's the object?

Regards,
Ivan

See
http://www.rondebruin.nl/mail/problems.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message oups.com...
I have tried a number of his macros however I have been unsuccessful as
the debug appears on the send mail each time. Any ideas?
Thanks

.SendMail ActiveSheet.Range("a1").Value, _
"This is the Subject line"

Do you have some problems with Ron's code ? I used it and it works 100%
OK.

This mails a w/s dated and called ANYTHING & w/b name

Regards,
Simon
Sub Mail_SheetsArray()
Dim wb As Workbook
Dim strdate As String
Dim I2 As Integer
strdate = Format(Now, "dd-mm-yy hh-mm-ss")
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
For I2 = 1 To 1 '[you can change this end figure for the aount of
times you would like to enter an email address]
t1 = InputBox("Enter E-mail Address", "Who To Send To?", "")
With wb
..SaveAs "SANYTHING " & ThisWorkbook.Name _
& " " & strdate & ".xls"
..SendMail t1 ', "This is the Subject line"
..ChangeFileAccess xlReadOnly
Kill .FullName
..Close False
End With
Next
Application.ScreenUpdating = True

End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=543686

Thank for the help. I was using outlook express, Once I installed
Outlook everything worked fine.