VBA code to draft email from multiple cells

[CT30]

I am looking for code that drafts the email using multiple cell values that are in different lines. TIA

From	ct@yahoo.com
To	123@yahoo.com
CC	abc@yahoo.com
Subject Line	Test 123
Content	Hello,
Below are the details of your order
Order Number: 123
Reference: 456
Thank you

 

[CT30]

This is what I have, but this picks body content only in cell B10, I also need to add cc field


Sub Test()
Dim OutObj As Object, OutMail As Object
Set OutObj = CreateObject("Outlook.Application")
Set OutMail = OutObj.CreateItem(0)
With OutMail
.To = Range("B6").Value
.Subject = Range("B8").Value
.Body = Range("B10").Value

.Display
End With
End Sub

 

[Logit]

Sub Test()
Dim OutObj As Object, OutMail As Object
Set OutObj = CreateObject("Outlook.Application")
Set OutMail = OutObj.CreateItem(0)

    With OutMail
        .To = Range("B6").Value
        .CC = Range("B7").Value
        .Subject = Range("B8").Value
        .Body = Range("B10").Value

        .Display
    End With
End Sub

 

[Trevor G]

Welcome to the forum. Do you want the additional cells on separate lines in the body of the email? If so you can use something like

.Body =Range(B10").Value & vbCr & range("C10").value

Add the additional & vbCr & cell ids and so on

Sent from my tablet