Mail verzenden vanuit Excel

[erka]

Hallo,

ik heb op helpmij een stukje macro "geleend" om één werkblad uit een bestand te verzenden, dit werkt prima, echter krijg ik tijdens het uitvoeren een melding:

Een programma probeert namens u een e-mail te verzenden..... .... " door vervolgens "Toestaan" te klikken wordt de mail wel verzonden, maar is er een mogelijkheid om deze melding over te slaan? kan dit in de macro, of is dit een instelling in outlook?

Sub Blad_emailen()
    With ThisWorkbook.Sheets("Miauw")
        .Copy
        fName = .Cells(7, 4).Value
    End With
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & fName & ".xlsx", 51
        .SendMail "test@test.nl", "ONDERWERP"
        .Close False
    End With
    Kill ThisWorkbook.Path & "\" & fName & ".xlsx"
End Sub

 

[edmoor]

Maak je gebruik van een Exchange Server voor het versturen van mail of is dat gewoon thuis op een PC/Laptop?

 

[erka]

Hallo Edmoor, het is een netwerk met exchange server

 

[edmoor]

Dan zal er in de Exchange server een Relay Connector moeten worden gemaakt:

2013:
http://exchangeserverpro.com/exchange-2013-configure-smtp-relay-connector/

2007/2010:
http://www.msexchange.org/articles-...nnectors-exchange-server-2007-2010-part1.html

 

[erka]

Bedankt voor de informatie! Ik ga er morgen mee aan de slag en laat dan weten hoe het afgelopen is!

 

[edmoor]

Het lijkt meer werkt dan het uiteindelijk is, maar daar kom je dan wel achter.
Succes