Emailing a sheet. - this should b easy - kinda urgent!

[Sami]

Ive got this code for emailing the sheet ReOrderSheet when the button is pressed:

Sub EmailSupplierWundpet()
'
' EmailSupplierWundpet Macro
' Emails Wundpet Ltd. the Re-order list
'

Set aEmail = aOutlook.CreateItem(olMailItem)

aEmail.Subject = "Oscarsons Pets & Provisions Re-Order List"

aEmail.Body = "Credit card number =."

aEmail.Attachments.Add ThisWorkbook.Path & "\data01.xls"

aEmail.Recipients.Add "orders@wundput.co.uk"

aEmail.Send

MsgBox "Email successfully sent."

End Sub

But this line keeps coming up in yellow and i dont know how to fix it? is there an easier way to doing this. is this code wrong?

 

[viper]

Okay, here's the code I am currently using to send a worksheet from my workbook. I am using separate modules but you could probably use only one if you'd prefer.

Sub SendIt()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
'make copy of sheet to e-mail
Sheet1.Copy
ActiveWorkbook.SaveAs Filename:="yourfilename.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show _
arg1:="email@address.com", _
arg2:="your file name"
'this is a separate module(module code below)
'that closes the file that was just e-mailed
CloseWorkbook
'this is a separate module(code below)
'this deletes the file after sending
'you can omit this module if you don't mind
'the extra workbook
DeleteFile
End Sub

Code for CloseWorkbook module
Sub CloseWorkbook()
ActiveWorkbook.Close ("your file name")
End Sub

Code for deleting the file after sending

Sub DeleteFile()
Kill "complete path with filename where file was copied"
End Sub

This code works great for me. And thanks to your question I was able to complete my project.

Viper

 

[LMF]

hi, i would like to send e-mail in excel, but don't want any attachment in that e-mail, how can i do that?

i have done this:
Sub Forgot_Password()

Dim emailaddress As String
Dim password As String
emailaddress = ThisWorkbook.Sheets("Sheet1").Range("ea").Value
password = ThisWorkbook.Sheets("Sheet1").Range("pw").Value
Application.Dialogs(xlDialogSendMail).Show _
arg1:=emailaddress, _
arg2:=password
End Sub

because everytime i run this code, it attach a file that i am running. what do i need to do to stop it? i only want it to send value in a cell.
pls let me know!

e-mail: dreamcity88@hotmail.com

 

[LMF]

anyone? pls help!
thanks

 

[Sami]

y dont you make ur own new topic and ppl mite reply . im sorry but i cant help :S only a begginner