Mandar correo desde Excel cambiando .Introduction por .Body
Esto es lo que tengo y quiero cambiar
. Introduction por
. Body
Sub Send_Range()
Row = ActiveCell.Row
Customer = Row
Custname = Range("O" & Customer & "")
Cmail = Range("N" & Customer & "")
CCmail = Range("O8")
Fromm = Range("N10")
ActiveSheet.Range("P23").CurrentRegion.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = Custname & "," & vbNewLine & vbNewLine & "Can you please get a freight rate for:" & vbNewLine & vbNewLine & Fromm
.Item.To = " " & Cmail & " "
.Item.CC = " " & CCmail & " "
.Item.Subject = "Ffreight rate needed"
.Item.Send
End With
Range("P" & Customer & "").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub