Saltar al contenido

.sendusingaccount = outapp.session.accounts.item(1)


JMCPBG

Recommended Posts

Esta instrucción al mandar un mail desde Excel, no funciona, pero tampoco da error.

Probablemente me falte una instrucción previa.

Agradecería ayuda.

El código completo del envío es:

With .ITEM

.Attachments.Remove 1

If impor = 1 Then .Importance = olImportanceHigh Else .Importance = olImportanceNormal

.BCC = oculta

.To = destinatario

.CC = copia

.Subject = asunto

If FICHERO_ADJUNTO <> "" Then .Attachments.Add FICHERO_ADJUNTO

.SendUsingAccount = OutApp.Session.Accounts.ITEM(1): ' <----------------------------------------------------

.Send

End With

Enlace a comentario
Compartir con otras webs

Archivado

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

×
×
  • 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.