Alargar el cuerpo de mail en VB.
Buen día.
Tengo el siguiente código de VB, para enviar mail desde excel, el problema es que quiero alargar el rango del cuerpo del mail a varias celdas y no solo a una.
O() As Boolean
Dim Email As CDO.Message
Dim Autentificion As Boolean
Set Email = New CDO.Message
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/" & _
"configuration/smtpauthenticate") = Abs(1)
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
Autentificacion = True
If Autentificacion Then
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Ejemplo**@gmail.com"
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ejemplo***"
Email.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End If
Email.To = Trim([O2].Value)
Email.From = Trim([O3].Value)
Email.Subject = Trim([O4].Value)
Email.TextBody = Trim([o5].Value)
If [O6].Value <> vbNullString Then
Email.AddAttachment (Trim([O6].Value))
End If
Email.Configuration.Fields.Update
On Error Resume Next
Email.Send
If Err.Number = 0 Then
EnviarMails_CDO = True
Else
MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
If Not Email Is Nothing Then
Set Email = Nothing
End If
On Error GoTo 0
End FunctionPor lo que pido se su apoyo revisando el codigo el la parte del cuarpo del mail.
Saludos, y gracias por leer mi pregunta.
1 Respuesta
Respuesta de Miguel Huertas
1
Solamente tienes que modificar la siguiente fila: Email.TextBody = Trim([o5].Value) Ejemplo: Email.TextBody= Trim([o5].Value) & Trim([p5].Value)
¡Gracias!
Me sirvió tu respuesta.
Me alegra...
