Saltar al contenido

Añadir introducción a correo


Recommended Posts

Buenas.

Tengo un programa para enviar nóminas automatizadas desde el Excel, pero se me ha ocurrido que antes de poner el texto del cuerpo del correo podría añadir una introducción, por ejemplo pondría A/A: JOSE LOPEZ GARCIA.

Para enviar el correo tengo este código en un bucle y funciona perfectamente, solo que no me añade la introducción.

Pongo solo esta parte del código donde envío correos por si podríais decirme si he de añadir algo más para que el código funcione.

'Enviamos por mail
  Set OutMail = OutApp.CreateItem(0)
  On Error Resume Next
  spie = "Gracias." 
   With OutMail
    .To = destino
    .CC = copia
    .BCC = ""
    .Introduction = "A/A: " & Me.ComboBox1.Value
    .Subject = Me.ComboBox1.Value & " - Nóminas PERIODO " & Me.TextInicio & " a PERIODO " & Me.TextFin
    .body = "Adjunto se remite recibo de nómina desde PERIODO " & Me.TextInicio & " a PERIODO " & Me.TextFin & vbNewLine & vbNewLine & vbNewLine & vbNewLine & spie
    .Attachments.Add Ruta3
    .send
   End With
'
Set OutMail = Nothing: Set OutApp = Nothing

No añado ningún archivo porque solo necesito saber si la línea (.Introduction = "A/A: " & Me.ComboBox1.Value) funcionaría de alguna manera o es que esta instrucción no procede con OutMail

O si me decís como puedo averiguarlo os lo agradezco.

Gracias.

Moisés.

 

Enlace a comentario
Compartir con otras webs

Hola @Antoni, en el código de arriba ya viene .Subject

Eso es el texto del mensaje, pero con .Introduction se pone una pequeña introducción al texto del mensaje.

Parece lo mismo pero no lo es.

Creo que va ligado a esto, .MailEnvelope pero no acabo de encontrar como hacerlo.

Voy a seguir buscando pero si alguien sabe le agradezco.

Gracias @Antoni

Enlace a comentario
Compartir con otras webs

Me estoy liando @Antoni, .Subject es el asunto no el texto como he dicho y .MailEnvelope es para pegar por ejemplo una hoja de un libro en el cuerpo del correo.

Pero yo solo estoy enviando un correo con un texto y quería poner una introducción al principio pero sin pegar nada, y ahí es donde no me aclaro.

Lo mismo ni se puede y es una tontería.

Saludos.

Enlace a comentario
Compartir con otras webs

Creo definitivamente que es una tornería. Modifico el .body del mensaje y no es necesario introducción.

 .body = "A/A: " & Me.ComboBox1.Value & vbNewLine & vbNewLine & "Adjunto se remite recibo de nómina desde PERIODO " & Me.TextInicio & " a PERIODO " & Me.TextFin & vbNewLine & vbNewLine & vbNewLine & vbNewLine & spie

Os he hecho perder el tiempo, lo siento.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.