Excel and Outlook --- plz help!

[ralfp]

Hello,
I am trying to create a spreadsheet that I can use to input some data and then create emails to different destinataries with different arays of data.

so far i got this far:
I need to be able to create outlook emails from a spreadsheet.

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")

olMail.Display

AppActivate "Microsoft Excel"

End Sub


I got a couple issues:
1) how do i select more than 1 email address?
2)how do i select a wider range? I need to select a3:d21, but having issues doing so.

I would really apprecitae some help regarding this matter.

thanks!

AP

 

[ralfp]

Thanks for your help Jen.

I think i need to insert breaks and lines as u said. Let say this is the info I got in the spreadsheet:

Buyer: Ginpac
Trader´s Name: Ralf Soto
Seller: Impec
Trader´s Name: Hans Trauter
Crude Type: Oman
Quantity: 750,000 bbls +/- 10% at Seller's option.
Price: Dated +*5,02 usd/bl. *
Delivery Terms: DES, B/L figures for invoicing.
Delivery Location: Honolulu, Hawai

Buyer is A3, Honolulu Hawai is B9.

I want to be able to copy all that info into the email with the proper spacing.

Is this something you know how to do?

Thanks again for your help

 

[jmthompson]

without knowing what is in each specific cell, the general idea is


olMail.Body = Range(cell).value & vbtab (tab) & Range(next cell on first line).value _
& vbnewline (line break) & range(first cell on next line).value </pre>

 

[Michael M]

Hi , I'm back on line.
I think you'll have to do a copy and paste for the correct text to appear in the body.
Try naming the range and then do a copy of the named range. then follow with a paste special into the body of the E-Mail.