.body = (En varias lineas ?)
Publicado por Omar (56 intervenciones) el 20/07/2009 21:32:16
Que tal foro.
Desde mi aplicacion mando un correo, ara cerrar un reporte en sistema y con mi cliente, pero el datalle es que no me deja hacerlo en varias lineas, espera me funcionara la concatenacion pero no es asi.
Pongo mi codigo a continuacion:
Private Sub EnviaCorreo()
Dim OutLookApp As Outlook.Application
Dim MsgOutLook As Outlook.MailItem
Set OutLookApp = New Outlook.Application
Set MsgOutLook = Outlook.CreateItem(olMailItem)
With MsgOutLook
.To = Direcciones
.Subject = "Cierre de Reporte" + " " + TxtFolio.Text
.Body = ("Fecha y Hora de Atencion:" + " " + DTPicker.Value & vbCrLf & "Solucion:" + " " + RtbOvs.Text)
.Display
End With
Set OutLookApp = Nothing
Set MsgOutLook = Nothing
End Sub
en la linea .Body ya lo probe tambien sin parentesis y no me funciona, alguien me puede decir como hacerlo?
De antemano, gracias.
Desde mi aplicacion mando un correo, ara cerrar un reporte en sistema y con mi cliente, pero el datalle es que no me deja hacerlo en varias lineas, espera me funcionara la concatenacion pero no es asi.
Pongo mi codigo a continuacion:
Private Sub EnviaCorreo()
Dim OutLookApp As Outlook.Application
Dim MsgOutLook As Outlook.MailItem
Set OutLookApp = New Outlook.Application
Set MsgOutLook = Outlook.CreateItem(olMailItem)
With MsgOutLook
.To = Direcciones
.Subject = "Cierre de Reporte" + " " + TxtFolio.Text
.Body = ("Fecha y Hora de Atencion:" + " " + DTPicker.Value & vbCrLf & "Solucion:" + " " + RtbOvs.Text)
.Display
End With
Set OutLookApp = Nothing
Set MsgOutLook = Nothing
End Sub
en la linea .Body ya lo probe tambien sin parentesis y no me funciona, alguien me puede decir como hacerlo?
De antemano, gracias.
Valora esta pregunta


0