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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.