Excel vs Outlook macro

[Clefebvre]

Is it possible to do a macro to copy a cell in excel and paste that cell in outlook and return to excel

Thanks

 

[ballc]

Hello,

This (the original question) is very similar to what I am trying to do: I want to open an outlook form and fill in some of the fields from my excel spreadsheet.

I just don't know how to open the form up in the first place.

Any help appreciated...

Thanks,

CB

 

[bluefish44]

Never mind....needed to read the entire thread to get my answer



I am using this code to send specific cells from my excel file to the text in an email.
Instead of Range("a1"), I am trying to paste in Range("h8:j12"), but I am getting an "Array lower bound must be zero" error. Does anybody know how I can append this code to paste in this range of cells instead of just one specific cell?

Thx in advance

Sub Test()
Dim olApp As Object, olMail As Object

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "Anyone@anywhere.com"
olMail.Body = Range("a1") 'Change to suit your needs

'To display the message use this
olMail.Display

'or to send the message use this
'olMail.Send

'Reactive Excel
AppActivate "Microsoft Excel"


End Sub

 

[ralfp]

I got the following to work:

Sub Test()
Dim olApp As Object, olMail As Object

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "Anyone@anywhere.com"
olMail.Body = Range("a1") 'Change to suit your needs

'To display the message use this
olMail.Display

'or to send the message use this
'olMail.Send

'Reactive Excel
AppActivate "Microsoft Excel"


End Sub


But im having trouble selecting the range that i need.

I need to be able to select a3:d17.

How would in do that?

Thanks,

Armando P