programma probeert e-mailbericht te verzenden outlook

[carloschouw]

Goedemiddag,

Vanuit VBA wordt er een email verstuurd middels

Sub MailIt()

    Dim OutApp As Object

    Set OutApp = CreateObject("Outlook.Application")
    With OutApp.CreateItem(0)
        .Subject = "Test"
        .To = "mailadres@adres.nl"
        .Body = ""
        .Display
        .Send
    End With
End Sub

De mail moet direct verzonden worden, vandaar gekozen voor .Send

Echter verschijnt er een popup met de melding "Een programma probeert namens u een e-mailbericht te verzenden outlook"

Weet iemand hoe ik dat kan omzeilen? De mail moet gewoon verzonden worden zonder op de optie "toestaan" te moeten klikken in de popup

 

[edmoor]

Dat is een beveiliging in Outlook:
https://docs.microsoft.com/nl-nl/ou...rying-to-send-an-email-message-on-your-behalf

 

[carloschouw]

Die kwam ik ook tegen alleen:

optie 1 meldt "antivirus status niet beschikbaar, deze versie ondersteund geen detectie"
optie 2, waarschuw mij nooit,.. kan ik niet instellen omdat deze opties niet beschikbaar zijn

Ik kom wat informatie tegen op https://www.add-in-express.com/docs/outlook-security-manager-automate.php maar ik snap niet zo goed hoe ik dat kan invoeren

 

[edmoor]

Waar jij naar verwijst is de Outlook Security Manager van Add-In Express.
Die is niet gratis maar na installatie kan je die zo gebruiken:

Sub MailIt()
    Dim OutApp As Object
    Dim OlSecurityManager As AddinExpress.Outlook.SecurityManager
    
    Set OlSecurityManager = New AddinExpress.Outlook.SecurityManager
    Set OutApp = CreateObject("Outlook.Application")
    OlSecurityManager.ConnectTo OutApp
    OlSecurityManager.DisableOOMWarnings = True
    On Error GoTo Finally
    With OutApp.CreateItem(0)
        .Subject = "Test"
        .To = "mailadres@adres.nl"
        .Body = ""
        .Display
    End With

Finally:
  OlSecurityManager.DisableOOMWarnings = False
End Sub

 

[carloschouw]

AA.. snap het. Dank!

Dat gaat niet werken want ik kan geen Add-in Express koppelen helaas. Ik moet iets zoeken wat je met VBA (of dergelijks) hetzelfde kan doen... zucht.. lastig stukje dit

 

[edmoor]

Alles erover staat in de pagina waar ik de link van plaatste.
Als het helemaal niet lukt gebruik dan CDO in plaats van Outlook.

 

[carloschouw]

Tja, alles geprobeerd. Werkt niet.. Hkey_local ook niet want daar staat niet de verwijzing om het aan te passen, wel andere maar die staan los van dit onderdeel.

Ik moet helaas outlook blijven gebruiken dus daar zit ik aan vast Waar ik ondertussen wel achter ben:

- De emailfunctie werkt prima rechstreeks van mijn locale station, géén popup melding
- De emailfunctie werkt NIET via een server omgeving, daar zit het probleem

Outlook werkt via de locale omgeving met de locale applicatie, via de server middels microsoft exchange. Daarom kan ik in deze omgeving niet aanpassen en krijg ik die popup

 

[edmoor]

Dan werkt de beveiliging van Outlook dus goed en is CDO de enige mogelijkheid.
Als je dat niet kan gebruiken houdt het op.

 

[carloschouw]

Sjips... wat ik nog zit te bedenken, dan houdt (en geef) ik het op: is er een optie dat de mailfunctie van VBA op de server (waar Excel op draait), outlook van de locale installatie gebruikt? Dus doorverwijst van de server naar de locale installatie?

 

[edmoor]

Waarom geen CDO gebruiken?
Dan ben je er helemaal van af.

 

[carloschouw]

Dat gaat niet, helaas (policy)

 

[edmoor]

Dan kan ik je helaas niet verder helpen.

 

[carloschouw]

Hoi edmoor,

Voor mij CDO te gebruiken, ken ik niet n.l. Hoe kun je deze functie dan omzetten voor CDO?

Sub MailIt()

    Dim OutApp As Object

    Set OutApp = CreateObject("Outlook.Application")
    With OutApp.CreateItem(0)
        .Subject = "Test"
        .To = "mailadres@adres.nl"
        .Body = ""
        .Display
        .Send
    End With
End Sub

Hoe ziet die code er dan uit?

 

[edmoor]

Dat kan je hier vinden:
https://www.rondebruin.nl/win/s1/cdo.htm

Let erop dat wanneer je de GMAIL SMTP server wilt gebruiken je voor dat account wel moet instellen dat minder veilige apps zijn toegestaan:
https://support.google.com/accounts/answer/6010255?hl=nl

Als je een voorbeeld documentje wilt hebben dan laat het maar weten.

 

[carloschouw]

Die ben ik net aan het lezen toevallig

Ik snap alleen dit stuk niet

   '    iConf.Load -1    ' CDO Source Defaults
    '    Set Flds = iConf.Fields
    '    With Flds
    '        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    '        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Fill in your SMTP server here"
    '        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    '        .Update
    '    End With

Ik neem aan de ik hier alle ' tekens moet verwijderen, mij SMTP server gegevens in moet vullen en meer niet (behalve dan de emailadressen e.d. in de maildata

 

[edmoor]

Inderdaad.
De server, gebruikersnaam en wachtwoord.
Daarnaast kan het zijn dat je een andere poort dan 25 moet gebruiken en ook moet aangeven of je wel of geen SSL/TLS gebruikt.
Dat is weer afhankelijk van de SMTP server die je gaat gebruiken.

Bij deze een voorbeeld waarin de GMAIL SMTP server wordt gebruikt:

 

[carloschouw]

Nou, ik er niet uit... ik heb van alles geprobeerd maar krijg macro foutmeldingen

 

[edmoor]

Mijn voorbeeld zitten geen macro fouten in.

 

[carloschouw]

Ik heb jouw bestand gebruikt, enkel de emailadressen e.d. veranderd in het tabblad Mailinfo maar krijg een foutmelding bij .TO (emailadresverwijzing) en bij .SEND

 

[edmoor]

Dat zullen dan geen macro fouten zijn.
Zonder de exacte foutmelding kan ik er niets mee.