Envío de correo con macros

29/04/2006 - 12:01 por Tomás | Informe spam
Saludos a todos. Tengo un par de problemillas al hacer una macro para enviar
un correo. He usado una macro que aparece en
http://www.rondebruin.nl/sendmail.htm que es a través de Hipervínculos con el
fin de que no me salga el mensaje de seguridad de que se está enviando un
correo. El problema que tengo es que quiero enviarlo con un archivo adjunto
y no sé como hacerlo y tampoco veo como se hace en dicha página. Agradezco
cualquier sugerencia incluso si es otro tipo de macros pero tiene que cumplir
las siguientes condiciones:
- No puede aparecer el mensaje de seguridad
- Permita adjuntar archivos al correo escrito (cuyos datos están en una tabla)
- No me envíe el correo automáticamente sino que sólo me lo muestre por si
tengo que modficar algo
Gracias a todos por su atención y un saludo
 

Leer las respuestas

#1 nlozadah
30/07/2012 - 17:34 | Informe spam
Héctor Miguel escribió el 03/05/2006 07:00 :
hola, Tomás !

... Ya lo tengo... encaminado. He usado la de Mail_small_Text_Outlook() que es
la que mejor se adapta a lo que quiero.
... me haria falta... que... cuando escribo el cuerpo del mensaje se le puede
dar formato.
strbody = "el importe de la factura es:" & vbNewLine & _
Importe & "Euros"
... quiero que "el importe de la factura es:" aparezca en negrita y
subrayado
y la variable "Importe" en formato #.###,00.
... cuando defino la variable le pongo el formato me lo recoge la tabla donde
se vuelca el dato
pero no en el cuerpo del correo electronico que es lo que deseo.




1) asumiendo que usas excel 2000 [o superior]... puedes usar para el envio de
textos con formato...
-> .HTMLBody = "sentencias con etiquetas HTML" en lugar de
usar...
-> .Body = strbody [p.e.]

2) las etiquetas para la 'necesidad' que planteas, serian +/- como sigue:
<B> inicia un bloque con texto en Bold [negritas]
<U> inicia un bloque con texto Underlined [subrrayado]
</U> </B> estas 'eqiquetas' TERMINAN los bloques correspondientes
<BR> es el 'sustituto' para vbNewLine

3) [en resumen] modifica/adapta/cambia/complementa/... tus lineas de codigo con
las siguientes:
' en el area de las variables, agrega una para las etiquetas HTML '
Dim Texto_html As String
' contruye el cuerpo con formato +/- como sigue... '
Texto_html = "<B><U> el importe de la factura
es:</U></B><BR>" & _
Format(Importe, "#,##0.00") & " Euros."
' inicias la instanciacion del objeto OutLook ... '
' sustituyes la linea con el .Body = strbody por la siguiente: '
.HTMLBody = Texto_html
' continuas con las instrucciones para el envio/presentacion del correo ... '

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

p.d. en la misma pagina de Ron DeBruin ->
http://www.rondebruin.nl/sendmail.htm
consulta la seccion de: Outlook object model (body)
los primeros dos enlaces contienen ejemplos variados para envios con formato
;)


Gracias Hector por la información me ha sido muy útil.

Sin embargo no encuentro la forma de que la palabra con formato sea la cual estoy llamando de una celda de excel, me explico, quiero llamar el contenido de una celda en excel al cuerpo del mensaje de outlook, y quiero que dicha frase esté en negrilla, como hago?

Un saludo

Preguntas similares