Aquí podría ser tu PUBLICIDAD


Suprimir diálogo de advertencia de que un programa está intentando acceder a mis correos

votos
2

Estoy siguiendo el código de esta página: Cómo crear un script para el Asistente de reglas en Outlook

Esto es lo que tengo:

Public Sub GetMails(Item As Outlook.MailItem)

    MsgBox Mail message arrived:  & Item.SenderEmailAddress
    MsgBox Mail message arrived:  & Item.Subject
    MsgBox Mail message arrived:  & Item.Body

End Sub

Establecí una regla para ejecutar esta macro. Cada vez que se ejecuta este script, aparece un diálogo sobre cómo un programa intenta acceder a mis correos.

¿Cómo puedo deshacerme de esto usando VBA o hay alguna opción de configuración en Outlook para que esto no aparezca?

Busqué en Google esto y encontré algunos sitios que dan código para C # y VB.net pero ninguno para VBA.

Publicado el 12/03/2009 a las 18:46
fuente por usuario AntonioCS
En otros idiomas...        العربية       

3 respuestas

votos
5

Esto se agregó para evitar que las secuencias de comandos maliciosas conviertan a Outlook en un anuncio publicitario masivo u otras cosas malas.

Puedes desactivar esto en tu estación de trabajo, pero si quieres distribuir tu aplicación a otros usuarios, puedes deshacerte de ella solo creando tu propio complemento de Outlook o usando una herramienta de terceros como Redención .

Respondida el 12/03/2009 a las 06:51
fuente por usuario Daniel Rikowski


Aquí podría ser tu PUBLICIDAD


votos
1

Prueba esto

Herramientas -> Macro -> Seguridad -> seguridad macro -> Sin seguridad Herramientas -> Macro -> Seguridad -> Acceso programático

Luego elige Nunca advertirme sobre actividades sospechosas.

Respondida el 03/05/2009 a las 03:48
fuente por usuario Kunal Ranglani

votos
0

Encontré esto en alguna parte y funciona:

Sub SaveAttachment(myItem As Outlook.MailItem)

'Elimine los archivos adjuntos del correo electrónico y guárdelos en una' carpeta local. Si hay errores en la grabación, los archivos adjuntos se dejan en su lugar.

Dim myAttachments As Object
Dim myOrt As String
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
Dim fs As Object

'Necesitamos obtener el objeto de objeto de correo desde la aplicación' para evitar mensajes de advertencia

strID = myItem.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)
Respondida el 30/07/2009 a las 11:26
fuente por usuario Stuart