Enviar email desde codigo VB por medio Outlook sin que pregunte si desea hacerlo

programador666
06 de Febrero del 2006
Tengo un procedimiento el cual se encarga de enviar un archivo adjunto mediante outlook, pero antes de hacerlo, sale una pantalla diciendo que es posible que el email tenga virus y pregunta si desea hacerlo.

La cuestion es:

¿Hay alguna forma de enviar el mensaje sin que salga esta pantalla? Pues necesito que el envio sea inadvertido para el usuario.

¿Dónde tengo que realizar esto? ¿En el codigo de VB o en alguna opcion de seguridad del Outlook?

Por favor ayudadme.

A continuacion les dejo el codigo que utilizo para realizar la accion:

Sub Mostrar_Criticos()
On Error GoTo Error
Dim Outlook As Outlook.Application
Dim Mail As Outlook.MailItem, Adjunto As Attachment

If isMail Then
Set Outlook = New Outlook.Application
Set Mail = Outlook.CreateItem(olMailItem)
Dim sExcelFileName As String
Dim sWorkSheetName As String
Dim sTableName As String
\'Dim cnn As ADODB.Connection

\' Datos por defecto
Kill App.Path & "\Criticos.xls"
sExcelFileName = App.Path & "\Criticos.xls"
sWorkSheetName = "Criticos"
sTableName = "Articulos_Criticos"

\' Creo una hoja de cálculo nueva mediante la instrucción SELECT...INTO
Conexion.Execute _
"SELECT * INTO [Excel 8.0;DATABASE=" & sExcelFileName & "].[" & _
sWorkSheetName & "] FROM " & "[" & sTableName & "]"

With Mail

.To = toMail
.Subject = "Artículos Críticos"
.Body = "Chequear el Stock de estos artículos"
Set Adjunto = .Attachments.Add(sExcelFileName, , , "Críticos")
.Send
End With
\'Conexion.Execute "update opciones set fecha_mail=" & StrFecha(Date)
End If
Exit Sub
Error:
Resume Next
End Sub

mvallejos
06 de Febrero del 2006
Vas a tener que configurar el Outlook para que no te de advertencias cuando un programa externo estè enviando mails. No se resuelve desde VB.

Saludos