excel output to outlook?

  • Thread starter Thread starter josh ashcraft
  • Start date Start date
J

josh ashcraft

I'm trying to email just the values of a range from my
worksheet. I don't want the cells to show up, only the
text. using the partial code i have below, what would be
the proper way to handle this?

Dim OLF As Outlook.MAPIFolder, olMailItem As
Outlook.MailItem
Dim ToContact As Outlook.Recipient
Set OLF = GetObject("", _
"Outlook.Application").GetNamespace
("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add ' creates a new e-mail
message
With olMailItem
..Subject = "Banklist Status sheet for " & Date ' message
subject
Set ToContact = .Recipients.Add
("(e-mail address removed)") ' add a recipient

.Body = "Thank you for submitting, here are your
results." &(chr13) & right here is where i want the values
to be inserted...

Thanks in advance guys,
Josh
 
Josh,

You can just tag a range value on the end like so

.Body = "Thank you for submitting, here are your results." & Chr(13)
& Range("C11").Value
 
Back
Top