XL 2013 envoyé un mail via macro excel en évitant l'avertissement d'outlook

[Aajib]

Bonjour
Je souhaite, via une macro excel, envoyé un mail à chaque ouverture du fichier.
le problème qui se pose à moi est que je souhaite éviter l'affichage du message "Outlook" demandant l'autorisation de l'envoi.
merci pour votre aide si précieuse.
amicalement
Aajib

 

[STephane]

Re : envoyé un mail via macro excel en évitant l'avertissement d'outlook

bonjour

Il est vrai que dans certains cas Outlook demande que l'on autorise sa manipulation par un outil externe.

Je viens de refaire un test et je n'ai pas eu le problème avec le code ci-dessous (cela dépend peut-être également du paramétrage d'Outlook).

Dans ton code, pourquoi ajoutes-tu l'instruction shell("outlook.exe") ?

Sub MSO_SendMail()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String


Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)


With olMailItm
    SDest = ""
    For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
        If SDest = "" Then
            SDest = Cells(iCounter, 1).Value
        Else
            SDest = SDest & ";" & Cells(iCounter, 1).Value
        End If
    Next iCounter
    
    .BCC = SDest
    .Subject = "FYI"
'    .Body = ActiveSheet.TextBoxes(1).text
    .Send
End With


Set olMailItm = Nothing
Set olApp = Nothing
End Sub

 

[Aajib]

Re : envoyé un mail via macro excel en évitant l'avertissement d'outlook

merci pour ta réponse Stéphane
j'ai recopié ton code mais j'ai toujours l'envoi qui est bloqué dans l'attente d'une confirmation

 

[STephane]

Re : envoyé un mail via macro excel en évitant l'avertissement d'outlook

Comme deja evoque ici, tu peux utiliser d autres techniques d envoi.

un article sur le sujet par microsoft
https://support.office.com/en-US/ar...y-behalf-86CC5ECE-379E-45E3-B8EB-3FEFBA09946B

un article sur le sujet
Bypassing the Outlook E-mail Security Warning - MS Access | DEVelopers HUT

tu peux notamment regarder du cote de CDO