Same format as below

[RLPeloquin]

With this code how can I send email to look like the below sample, which is Sheet("Blue 65")
Currently the strbody puts each cell on a different line. Thanks so much for any help!
If Not argRange Is Nothing Then
For Each c In argRange
sTmp = sTmp & c.Text & vbCrLf
Next c
RangeConc = sTmp
End If
End Function
Sub Send_Email()
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim c As Range
Dim sTmp As String
strSubject = "Results of your power useage"
strFrom = "************"
strTo = "***************"
strCc = ""
strBcc = ""
strBody = "Here is a copy of your power usage: " & RangeConc(ActiveSheet.Range("F1,F2,G3,H3,A1,A2,A3,A4,A5,C7,C8,C9,C10,D7,D8,D9,D10,E7,E8,E9,D9"))

Set CDO_Mail = CreateObject("CDO.Message")
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "**********"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

End Sub

 

[braindiesel]

Wouldn't it be easier to grab the range on the excel sheet and save it as a JPEG or PDF and send that as an attachment?

 

[RLPeloquin]

Wouldn't it be easier to grab the range on the excel sheet and save it as a JPEG or PDF and send that as an attachment?

Don’t know how to do that

 

[RLPeloquin]

Don’t know how to do that

Don’t know how to do that

Wouldn't it be easier to grab the range on the excel sheet and save it as a JPEG or PDF and send that as an attachment?

Sorry, I don’t know how to do that! Any help at all would be greatly appreciated! Thanks!

 

[braindiesel]

When it comes to working between Outlook and Excel, Ron DeBruin is THE person to refer to...

You should find all the answers you need here

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl