Macro para envio de correos

"alf_mx" escribió en el mensaje news:

al usar el siguiente comando
.HTMLBody= "Estimado Sr. Saenz, " & _
."Hemos recibido su respuesta y en breve un Ejecutivo se comunicará con ud.".

aparece en el cuerpo del mail

Estimado Sr. Saenz, Hemos recibido respuesta..etc.

No encuentro la manera de introducir una linea entra ambos parráfos ...

Hola,
examina el protocolo "mailto":
http://msdn.microsoft.com/library/d...mailto.asp

Debes añadir el valor hexadecimal. Para facilitar la tarea podrías tener una función que te devolviera 'n' saltos de línea, algo
así:

'*************
Public Function RetornoCarro(Optional intReturns As Integer = 1) As String
Dim i As Integer
Const cnstRetorno As String = "%0D%0A"

For i = 1 To intReturns
RetornoCarro = cnstRetorno & RetornoCarro
Next
End Function
'*************

...y en tu caso crear la cadena del 'Body' así:
'*****
...
.HTMLBody = "Estimado Sr. Saenz," & RetornoCarro(2) & "Hemos recibido respuesta..."
...
'*****


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

Gracias.

"Vinchenzo vinç" escribió:

"alf_mx" escribió en el mensaje news:
> al usar el siguiente comando
> .HTMLBody= "Estimado Sr. Saenz, " & _
> ."Hemos recibido su respuesta y en breve un Ejecutivo se comunicará con ud.".
>
> aparece en el cuerpo del mail
>
> Estimado Sr. Saenz, Hemos recibido respuesta..etc.
>
> No encuentro la manera de introducir una linea entra ambos parráfos ...

Hola,
examina el protocolo "mailto":
http://msdn.microsoft.com/library/d...mailto.asp

Debes añadir el valor hexadecimal. Para facilitar la tarea podrías tener una función que te devolviera 'n' saltos de línea, algo
así:

'*************
Public Function RetornoCarro(Optional intReturns As Integer = 1) As String
Dim i As Integer
Const cnstRetorno As String = "%0D%0A"

For i = 1 To intReturns
RetornoCarro = cnstRetorno & RetornoCarro
Next
End Function
'*************

...y en tu caso crear la cadena del 'Body' así:
'*****

.HTMLBody = "Estimado Sr. Saenz," & RetornoCarro(2) & "Hemos recibido respuesta..."

'*****


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn