Para enviar correos con vba utilizo una rutina que encontré hace un tiempo
atrás aqui en la página de ayuda, uso el sgte. código:
Private Sub EnvCorreos()
Set OLF = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "REPORTE DE PRENDAS AL " & Date
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><BODY><font face = arial size = -1>El día de hoy "
& CStr(Date) & " hemos efectuado búsqueda de Operaciones Pendientes de
entrega, habiendo ya transcurrido tiempo prudencial para su " & _
"devolución, agradeceremos realizar las verificaciones
respectivas para los documentos del reporte alcanzado.<BR><BR>" & _
"Atentamente,<BR><BR>" & UsuActual & "</BODY></HTML>"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
' .Display
.Send
End With
End Sub
El envío marcha bien, sólo que me aparecen dos cuadros del Outllok que
quisiera evitar, uno me dice que un agente externoestá quierndo usar mi
libreta de direcciones, permitiendome autorizar por algunos minutos el uso de
la libreta, luego aparece un cuadro de progerso donde al terminar de cargar
recién debo dar click para que el correo sea enviado. ¿Conoce alguien cómo
puedo evitar estos filtros?
Desde ya, muchas gracias.
Qualitas2003
Leer las respuestas