message d'outlook lors de l'envoie d'un mail à partir de VB

Question

bonjour

j'ai trouvé le code pour envoyer des mails en vb ou vba
mais lorsque je l'execute, outlook m'envoie un message comme quoi un programme externe essaie d'accéder au carnet d'adresse ou essaie d'envoyer un message

on est alors obligé de cliquer sur le bouton pout autoriser l'acces

n'y a-t-il pas un moyen de désactiver cette fonction pour pouvoir envoyer un mail sans message d'outlook ?

cygate · Answer

Moi j'ai la même chose...
Je suis deg, même en mettant autoriser l'envoie par d'autres logiciels. (sous outlook Express)

Sous Outlook (le Pro) on peu même pas mettre ça

vfournel · Answer

J'ai trouvé un truc mais c'est pas le Pérou enfin si cela interesse qq1 envoyez moi un mail...

bengair380 · Answer

La r&#233;ponse de Microsoft  &#224; toutes nos recherches (depuis plusieurs ann&#233;es) :
Sub UnTrustedCode()
    Dim olApp As New Outlook.Application
    Dim oMail As Outlook.MailItem
    Set oMail = _
        olApp.Session.GetDefaultFolder(olFolderInbox).Items(1)
    MsgBox oMail.SenderEmailAddress, vbInformation
End Sub

Sub TrustedCode()
    Dim olApp As Outlook.Application
    Set olApp = Application
    Dim oMail As Outlook.MailItem
    Set oMail = _
        olApp.Session.GetDefaultFolder(olFolderInbox).Items(1)
    MsgBox oMail.SenderEmailAddress, vbInformation
End Sub

nickou590 · Answer

Salut,

j'ai eu le meme soucis et j'ai trouv&#233; une soluce toute simple :

au lieu de l'instruction 'MonMail.Send', il faut simuler le clic de la souris sur le bouton 'envoi' de Outlook par l'instruction suivante : 'SendKeys ("%v")

voil&#224;... c'est tout

nickou590 · Answer

re-Salut,
pr&#233;cision : si &#231;a ne fonctionne pas, utilisez : 'SendKeys ("%v"), True'
(cela permet &#224; la macro de garder la main sur le message, si j'ai bien compris ce que j'ai fait  lol)
fonctionne nickel dans toute macro VB pour envoyer des mails sous OUTLOOK 200, 2002, 2003
je sais que cette r&#233;ponse est un peu &#224; retardement, mais &#231;a pourrait bien aider ceux qui font des recherches  ;o))

cs_allili · Answer

Salut,
en code VB chez moi ne ca marche pas, meme si j'utilise le Sendkeys dans monn application VB le message persiste.
je sais pas comment je doit me procéder???

[:)]

Message d'outlook lors de l'envoie d'un mail à partir de VB

6 réponses

Discussions similaires