Create Outlook email to send out

[Nicolaf]

Hi,

I need a macro in Sheet1 that creates an email to send out, fills it with recipient and title and copies / pastes range C7:F13 (in Sheet1) onto it.

title is found in cell A1

How do i do that?

:dunno :doh: :think:

Nix

[DannyBOHLEN]

try this:



Private Sub Label1_Click()
Dim App, Mail As Object
Application.ScreenUpdating = False
Set App = CreateObject("Outlook.Application")
Set Mail = App.CreateItem(0)
With Mail
.To = "xxxxxx"
.cc = "xxxxxxx"
.Subject = ActiveSheet.Cells(1, 1).Text
.body = ActiveSheet.Range("C7:F13").Value
.display
.ReadReceiptRequested = False
.Attachments.Add ActiveWorkbook.FullName
'.send = True
End With
Set App = Nothing
Set Mail = Nothing
End Sub

[mancubus]

see:

http://www.rondebruin.nl/mail/folder2/mail4.htm

[Nicolaf]

Hi,

I get error message: "Run-time error'-2147467259(80004005)'
Array lower bound must be zero"

When I go into Debug I see " .body = ActiveSheet.Range("C8:F13").Value " highlighted in yellow.

Have I done something wrong?

Thanks,
Nix

[georgiboy]

See the website that Mancubus has recommended, I suggest you go with the HTML method, that's the one I like to use. This website is rich in relevant information.

[Nicolaf]

Thanks!

:hi: