Saltar al contenido

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

publicado

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

Featured Replies

No hay posts para mostrar

Archivado

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