• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

automatisch mail sturen

Status
Niet open voor verdere reacties.
L

longron

Gebruiker
Lid geworden
2 apr 2007
Berichten
365
Beste kenners van Excel,

Ik wil een mail sturen vanuit Excel/vba waarbij de uitgaande mailserver ook is ingevoerd.

Dus niet dat mail vanuit outlook een mail stuurt maar vanuit een eigen mailserver.
geen idee of het mogelijk is.

ik hoor het graag

groet,
Ronlad
 
Hai Route99,

ik ga ernaar kjken.
zou met de tweede keus moeten

vanuit de powershell zal niet gaan gezien het netwerk waar ik binnen werk.
thanks alvast.

groetjes
Ronald
 
Dat kan met CDO. Voorbeeld is met gebruik van GMail.
Pas het rode gedeelte aan voor gebruik van je eigen mailserver.
Code: 
Sub CDOmail()
    Dim iMsg As Object
    Dim iConf As Object
    Dim Flds As Variant
    Dim Schema As String

    Dim SMTPsendusing As Byte
    Dim SMTPauthenticate As Byte
    Dim SMTPserver As String
    Dim SMTPserverport As Integer
    Dim SMTPusessl As Boolean
    Dim SMTPusername As String
    Dim SMTPpassword As String
    Dim SMTPconnectiontimeout As Integer
    
    Dim msgTO As String
    
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    SMTPsendusing = 2
[COLOR="#FF0000"]    SMTPauthenticate = 1
    SMTPserver = "smtp.gmail.com"
    SMTPserverport = 465
    SMTPusessl = True
    SMTPusername = "jouwnaam@gmail.com"
    SMTPpassword = "JouwWachtwoord"[/COLOR]
    SMTPconnectiontimeout = 10
    
    msgTO = "edmoor@helpmij.nl"
    
    Schema = "http://schemas.microsoft.com/cdo/configuration/"
    iConf.Load -1   'zet CDO standaard instellingen
    Set Flds = iConf.Fields
    With Flds
        .Item(Schema & "sendusing") = SMTPsendusing
        .Item(Schema & "smtpauthenticate") = SMTPauthenticate
        .Item(Schema & "smtpserver") = SMTPserver
        .Item(Schema & "smtpserverport") = SMTPserverport
        .Item(Schema & "smtpusessl") = SMTPusessl
        .Item(Schema & "sendusername") = SMTPusername
        .Item(Schema & "sendpassword") = SMTPpassword
        .Item(Schema & "smtpconnectiontimeout") = SMTPconnectiontimeout
        .Update
    End With

    With iMsg
        Set .Configuration = iConf
        .To = msgTO
        .CC = ""
        .BCC = ""
        .From = SMTPusername
        .Subject = "Het onderwerp"
        .TextBody = "De mail tekst"
        [COLOR="#008000"]'.AddAttachment "C:\Map\Bestand.pdf"[/COLOR]
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub

Denk eraan dat de te gebruiken poort ook door de firewall moet worden toegestaan voor verkeer naar buiten.

Edit:
Ik zie net dat route99 een link plaatste naar CDO uitleg.
Het voorbeeld dat ik plaatste gebruik ik er zelf voor, waarbij de gegevens voor het rode gedeelte ergens uit het werkboek worden gelezen.
 
Laatst bewerkt:
Hai Route99 en Edmoor,

Werkt perfect..............thuis. niet vanaf de locatie waar het bestand moet werken......

Netjes dichtgetimmerd en dat moet eigenlijk natuurlijk ook.
 
Zie mijn opmerking over de firewall.
 
Ik heb een VPN naar huis, ben je er ook vanaf...
Kosten ca 65 euro met een Raspberry Pi.
Ook handig voor publieke wifi's.

Soms worden op wifi punten dit soort smtp zaken geblokkeerd (spam !) ... dus dan moet je wel een VPN hebben...
 
Op de poorten heb ik geen invloed. En dat is op zich terecht.

@route99 jij gebruikt een Rasberry Pi als vpn.
daar heb ik er nog 2 van liggen.
Maar ik ben niet zo thuis inde VPN.
is het dan zo dat ik via die VPN, thuis draaiend lijkt me, vanaf een netwerk wat beperkingen heeft wel mail kan versturen?
 
Als je al een RPI hebt liggen en je bent een beetje handig... dan kun je zelf een VPN maken.
http://www.zwiebelfam.nl/camper/VPN/index.htm
Ik heb er via een HMDI kabel ff een scherm aangehangen, maar remote e.d. kan ook.

Je moet dan voor je mobiel en/of laptop certificaten maken en die importeren in de VPN app.
Iphone had ik meteen aan het werk, die vond ik het belangrijkste, laptop moet ik nog een keer doen, maar moet ook lukken.
Ik heb hem nu ca een half jaar werkend, nog nooit een probleem gehad.

PS: ik heb op mijn mobiel Webdav navigator ingesteld op het lokale ip adres... zonder VPN kom ik er vanaf mijn mobiel dus niet bij de Webdav cloud server thuis (security!)... maar met de secure VPN lijn die ik opgezet heb wel... !
Dus op die manier kan ik altijd bij mijn data en door de VPN tunnel kan een ander niet meekijken of via een wifi bij die data oid.
Mail zou dus ook zo moeten werken, maar onderweg gebruik ik webmail, al die mail daar loopt mijn telefoon van vol als dat via een app zou gaan en ik heb geen zin om daar überhaupt naar om te kijken....
 
Laatst bewerkt:
weet niet of met vpn het probleem wordt opgelost.

ik draai een Excel applicatie op een netwerk. Het is een roosterprogramma.
Wat ik wil is dat als een nieuw jaar wordt aangemaakt er een mail op de achtergrond wordt gestuurd zodat ik weet dat er een nieuw jaar wordt aangemaakt.
Nu houdt de firewall dat tegen.
Kan ik dat omzeilen met een VPN?
 
Laatst bewerkt:
Beste allen,

klopt mijn veronderstelling dat ik niet naar een VPN verbinding thuis vanuit een bedraad netwerk kan werken?
ofwel dat ik hiermee geen mail kan versturen als de poorten dicht zitten?

alvast bedankt voor het mee denken.

groetjes
Ronald
 
longron zei:
1. weet niet of met vpn het probleem wordt opgelost.
2. ik draai een Excel applicatie op een netwerk. .....
3. ....er een mail op de achtergrond wordt gestuurd
4. Nu houdt de firewall dat tegen.
5. Kan ik dat omzeilen met een VPN?
Klik om te vergroten...
1. Alleen als je op het netwerk terecht komt waar je smtp rechten hebt om te verzenden.... of hotmail/gmail met authentificatie, zie onder
2. = feit
3. =feit
4. = geen feit, laat het log van de firewall maar zien dat dit klopt of geef een ander waterdicht bewijs
5. zie punt 1

SMTP -probleem: je hebt alleen een optie om een mail te versturen als jouw rechten daarvoor ok zijn. Daar zijn meerdere opties voor

A. Thuis
- de smpt van je provider gebruiken. Rechtstreeks: dus thuis op het netwerk, zie papier provider hoe
- smtp van gmail of hotmail gebruiken met hun account icm authentificatie

B Niet thuis:
- via VPN naar huis, is alsof je thuis bent dus werkt ook
- alle andere gevallen moet je een authentificatie gebruiken om een smtp te kunnen gebruiken.
- Dat kan ook van je thuis provider mits je een wachtwoord extern kunt gebruiken daarvoor Dat kan ook met gmail/hotmail account icm authentificatie op die manier.
 
Laatst bewerkt:
Hai Route99,

dank voor de uitgebreide bericht,,,
maar ik vrees toch dat ik hem niet helemaal begrijp.



ik gebruikt een Excel programma en die moet automatisch een mail sturen via Gmail.
Thuis werkt dat prima, de mail wordt gestuurd en ontvangen ( ook handig )
echter op het werk lukt het niet via de smtp van Gmail, poort 465. Er wordt geen mail gestuurd en ik krijg een foutmelding.
fout -2147220973 (80040213). transportfunctie kan geen verbinding maken met de server.
De situatie is als volgt:


ls je een praktische oplossing weet. als ik iets verkeerd doe dan hoor ik het graag.
 

Bijlagen

Laatst bewerkt:
Zolang port 465 in de firewall dicht staat zal er inderdaad geen verbinding met die server kunnen worden gemaakt.
 
Thanks, Edmoor

Nu wordt er binnen het netwerk wel gebruikt gemaakt van Exchange .
is er een mogelijkheid om "mee te liften"op dezelfde poorten die Exchange gebruikt of kom je dan in de knoei met de authenticate ?
 
De informatie die ik je heb gegeven betreft exact wat Gmail gebruikt. Exchange gebruikt volgens mij voor SSL poort 495 dus dat gaat dan niet werken.
Om lang zoeken te voorkomen kan je aan systeembeheer vragen poort 465 even open te zetten om te testen of het dan werkt.
De code zoals ik die gaf werkt gewoon dus het kan aan weinig anders liggen dan toegang tot die SMTP server en dat zal dan om die specifieke poort gaan.
 
Oke,

thanks,

ik ga het bespreken maar vrees dat ze daar niet aan meewerken.
Zijn best wel rigide.

Groetjes
Ronald
 
Even snel voor een test met een systeembeheerder erbij zou moeten lukken.
Je hoeft alleen maar te weten of dat de oorzaak is.
 
Volgens mij was ik heel duidelijk:
4. = geen feit, laat het log van de firewall maar zien dat dit klopt of geef een ander waterdicht bewijs
Klik om te vergroten...
En welke firewall hangt af van welke verbinding je hebt.
Dus als ze jouw poort blokkeren moet je het ze vragen.
Blokkeren ze die poort niet en werkt het toch niet, moet je ze vragen om hun firewall report om te zien waarom het toch mis gaat.
Dat heet dan allemaal.. overleggen.
Als je stapsgewijs door de opties gaat kom je er vast uit.

Maak ander een stroomschema met blokjes en pijltjes en zo, met alle geteste opties (met smtp adres en poort nummer/ met of zonder autentificatie), waar wel en niet werkende, neem dat mee naar hen en dat helpt tig keer beter dan een verhaal...
 
Hai Route99,
ik vrees dat ik geen log kan zien van de router. .Geloof niet dat de afdeling ICT bij ons mij die info geeft.
Ik werk binnen een gezondheidsinstelling en de prioriteit ligt bij veiligheid.

Bij mijn eigen netwerk kan ik wel gewoon via de door mij open gezetten poorten naar buiten.
Het script wat ik hierboven plaatste werkt thuis prima en niet binnen de instelling.

thanks

Ronald
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan