• 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.

Internetverbing E-mail verzenden

Status
Niet open voor verdere reacties.
S

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
Hallo experten,
Hierbij twee vragen
Als ik na het opstarten van mijn laptop onmiddellijk deze excel open verschijnt er een bericht.
Als ik deze excel open nadat ik op het internet ben geweest verschijnt bovenstaande melding niet.
Wat moet er in macro Auto_Open aangepast worden zodat de melding niet meer verschijnt.

De macro Auto_Open zorgt ervoor als [DEZE_KEER]-[VORIGE_KEER]>100 en [DIERSOORTEN_SELECTEERBAAR]<>"ORIGINEEL-EXEMPLAAR" er een MsgBox verschijnt met volgend bericht "Mail versturen".
Bedoeling is dat deze MsgBox vervangen wordt door volgende opdracht.
Een E-mail verzenden naar dierenmakkelijk@gmail.com met als onderwerp de inhoud van DIERSOORTEN_SELECTEERBAAR
Op deze manier is het geweten wie er gebruikt maakt van deze Excel en kan er een versie met aanpassingen aan deze gebruiker worden bezorgd.
 

Bijlagen

  • Mail van gebruiker.xlsm
    35,8 KB · Weergaven: 21
bestaat er een code voor
het openen van internet
het sluiten van internet
 
Je bedoelt een browser?
 
inderdaad, want als ik de excel open nadat ik Google Chrome heb geopend verschijnt melding niet.
 
het is natuurlijk mogelijk dat andere gebruikers een andere browser gebruiken, dus het zou de browser van de gebruiker moeten zijn of en browser die op alle computers werkt.
 
Ik vind dat het opzoeken van een probleem om een ander probleem te omzeilen.
Houtje touwtje werk dus.
Maar goed;
Code: 
Option Explicit

#If WIN64 Then
    Private Declare PtrSafe Function ShellExecute _
      Lib "shell32.dll" Alias "ShellExecuteA" ( _
      ByVal hWnd As Long, _
      ByVal Operation As String, _
      ByVal Filename As String, _
      Optional ByVal Parameters As String, _
      Optional ByVal Directory As String, _
      Optional ByVal WindowStyle As Long = vbMinimizedFocus _
      ) As Long
#Else
    Private Declare Function ShellExecute _
      Lib "shell32.dll" Alias "ShellExecuteA" ( _
      ByVal hWnd As Long, _
      ByVal Operation As String, _
      ByVal Filename As String, _
      Optional ByVal Parameters As String, _
      Optional ByVal Directory As String, _
      Optional ByVal WindowStyle As Long = vbMinimizedFocus _
      ) As Long
#End If

Public Sub OpenUrl()
    Dim sts As Long
    sts = ShellExecute(0, "Open", "https://www.helpmij.nl/")
End Sub
 
Laatst bewerkt:
hallo Edmoor,
bedankt, lijkt te werken, ga vanavond uitgebreid testen.
ik zal het daarna laten weten
 
Het openen van de default browser zal op die manier gewoon werken.
Of het je probleem met Outlook oplost vraag ik me af en als dat zo blijkt te zijn bij je test zou het nog weleens per computer kunnen verschillen.
Wat ik al eerder zei, gebruik CDO, dan hoef je niet moeilijk te doen.
 
goede morgen edmoor

ik ben aan het testen geweest met CDO, maar lukt mij niet. Telkens stopt de macro bij .Send
klopt het dat voor smtpauthenticate, sendusername, sendpassword, sendusing, smtpserver, smtpserverport er mogelijk voor een andere gebruiker en computer andere waarden moeten ingevuld worden. Kan dit automatisch met VBA? Als dat niet kan is de oplossing met CDO niet bruikbaar voor mijn bedoelding. Dit is te moeilijk voor de leden van onze vereniging, zij zullen wel een excel kunnen gebruiken maar als zij in een macro iets moeten veranderen, dat zal niet lukken.
in bijlage het bestand van rondebruin dat ik heb probeerde aan te passen
 

Bijlagen

  • CDO_Example_Codetest.xlsm
    62,3 KB · Weergaven: 7
Maak voor de vereniging een account aan bij Gmail.com, dan heb je maar 1 gebruikersnaam en wachtwoord die je dan in je code gebruikt.
Zorg er wel voor dat dan in dat account aangegeven staat dat minder veilige apps gebruikt mogen worden.
https://cshcomputers.nl/handleiding...ilige apps toegang tot uw account krijgen.pdf

Zelf doe ik het dan zo:
Code: 
Sub Send_Mail()
    Dim CDOweb As String
    Dim CDOcnf As Object
    Dim CDOmsg As Object
    Dim CDOfld As Variant
    
    Dim SMTPusr As String
    Dim SMTPpwd As String
    
[COLOR="#FF0000"]    SMTPusr = "helpmijvraag@gmail.com"
    SMTPpwd = "Welkom01"[/COLOR]
    
    Set CDOmsg = CreateObject("CDO.Message")
    Set CDOcnf = CreateObject("CDO.Configuration")
    CDOweb = "http://schemas.microsoft.com/cdo/configuration/"

    CDOcnf.Load -1
    Set CDOfld = CDOcnf.Fields
    With CDOfld
        .Item(CDOweb & "smtpserver") = "smtp.gmail.com"
        .Item(CDOweb & "sendusing") = 2
        .Item(CDOweb & "smtpserverport") = 465
        .Item(CDOweb & "smtpauthenticate") = 1
        .Item(CDOweb & "smtpusessl") = True
        .Item(CDOweb & "sendusername") = SMTPusr
        .Item(CDOweb & "sendpassword") = SMTPpwd
        .Update
    End With
                                     
    With CDOmsg
        Set .Configuration = CDOcnf
        .To = "suvermo@helpmij.nl"
        .CC = ""
        .BCC = ""
        .FROM = SMTPusr
        .Subject = "Het onderwerp"
        .TextBody = "Aanhef"
        .Send
    End With
End Sub
 
Laatst bewerkt:
bedankt voor de hulp, maar toch niet zo eenvoudig als ik dacht
in de code heb ik .To = veranderd in "dierenmakkelijk@gmail.com" maar de macro stopt bij .Send
wat moet er nog meer veranderen
dank bij voorbaat


Code: 
Sub Send_Mail()
    Dim CDOweb As String
    Dim CDOcnf As Object
    Dim CDOmsg As Object
    Dim CDOfld As Variant
    
    Dim SMTPusr As String
    Dim SMTPpwd As String
    
    SMTPusr = "helpmijvraag@gmail.com"
    SMTPpwd = "Welkom01"
    
    Set CDOmsg = CreateObject("CDO.Message")
    Set CDOcnf = CreateObject("CDO.Configuration")
    CDOweb = "http://schemas.microsoft.com/cdo/configuration/"

    CDOcnf.Load -1
    Set CDOfld = CDOcnf.Fields
    With CDOfld
        .Item(CDOweb & "smtpserver") = "smtp.gmail.com"
        .Item(CDOweb & "sendusing") = 2
        .Item(CDOweb & "smtpserverport") = 465
        .Item(CDOweb & "smtpauthenticate") = 1
        .Item(CDOweb & "smtpusessl") = True
        .Item(CDOweb & "sendusername") = SMTPusr
        .Item(CDOweb & "sendpassword") = SMTPpwd
        .Update
    End With
                                     
    With CDOmsg
        Set .Configuration = CDOcnf
        .To = "dierenmakkelijk@gmail.com"
        .CC = ""
        .BCC = ""
        .FROM = SMTPusr
        .Subject = "Het onderwerp"
        .TextBody = "Aanhef"
        .Send
    End With
End Sub
 
Gebruikersnaam en wachtwoord.
 
heb het gedaan maar stopt nog steeds bij .Send

Code: 
Sub Send_Mail()
    Dim CDOweb As String
    Dim CDOcnf As Object
    Dim CDOmsg As Object
    Dim CDOfld As Variant
    
    Dim SMTPusr As String
    Dim SMTPpwd As String
    
    SMTPusr = "dierenmakkelijk@gmail.com"
    SMTPpwd = "Welkom?1234"
    
    Set CDOmsg = CreateObject("CDO.Message")
    Set CDOcnf = CreateObject("CDO.Configuration")
    CDOweb = "http://schemas.microsoft.com/cdo/configuration/"

    CDOcnf.Load -1
    Set CDOfld = CDOcnf.Fields
    With CDOfld
        .Item(CDOweb & "smtpserver") = "smtp.gmail.com"
        .Item(CDOweb & "sendusing") = 2
        .Item(CDOweb & "smtpserverport") = 465
        .Item(CDOweb & "smtpauthenticate") = 1
        .Item(CDOweb & "smtpusessl") = True
        .Item(CDOweb & "sendusername") = SMTPusr
        .Item(CDOweb & "sendpassword") = SMTPpwd
        .Update
    End With
                                     
    With CDOmsg
        Set .Configuration = CDOcnf
        .To = "dierenmakkelijk@gmail.com"
        .CC = ""
        .BCC = ""
        .FROM = SMTPusr
        .Subject = "Het onderwerp"
        .TextBody = "Aanhef"
        .Send
    End With
End Sub
 
Als je mij in een privé bericht de account gegevens, email adres, gebruikersnaam en wachtwoord wilt sturen wil ik het wel even voor je testen.
 
na het opnieuw opstarten van de computer ik krijg deze foutmelding
de rest zoek ik op en zal het bezorgen
 

Bijlagen

  • foutmelding.jpg
    foutmelding.jpg
    28,4 KB · Weergaven: 17
Het zou nu moeten werken.
Je had de toegang door minder veilige apps niet ingeschakeld.
Gebruik daarnaast poort 587 in plaats van 465.
 
alvast bedankt voor de prima service

de code is aangepast maar nu andere foutmelding

ik stop er nu even mee, vanavond doe ik verder
nogmaals bedankt

Code: 
Sub Send_Mail()
    Dim CDOweb As String
    Dim CDOcnf As Object
    Dim CDOmsg As Object
    Dim CDOfld As Variant
    
    Dim SMTPusr As String
    Dim SMTPpwd As String
    
    SMTPusr = "verborgen"
    SMTPpwd = "verborgen"
    
    Set CDOmsg = CreateObject("CDO.Message")
    Set CDOcnf = CreateObject("CDO.Configuration")
    CDOweb = "http://schemas.microsoft.com/cdo/configuration/"

    CDOcnf.Load -1
    Set CDOfld = CDOcnf.Fields
    With CDOfld
        .Item(CDOweb & "smtpserver") = "smtp.gmail.com"
        .Item(CDOweb & "sendusing") = 2
        .Item(CDOweb & "smtpserverport") = 587
        .Item(CDOweb & "smtpauthenticate") = 1
        .Item(CDOweb & "smtpusessl") = True
        .Item(CDOweb & "sendusername") = SMTPusr
        .Item(CDOweb & "sendpassword") = SMTPpwd
        .Update
    End With
                                     
    With CDOmsg
        Set .Configuration = CDOcnf
        .To = "verborgen"
        .CC = ""
        .BCC = ""
        .FROM = SMTPusr
        .Subject = "Het onderwerp"
        .TextBody = "Aanhef"
        .Send
    End With
End Sub
 

Bijlagen

  • andere foutmelding.jpg
    andere foutmelding.jpg
    24,7 KB · Weergaven: 21
Laatst bewerkt door een moderator:
Haal die gebruikersnaam en wachtwoord even uit je post.

Zet het poortnummer eens terug op 465.
 
Laatst bewerkt:
gebruikersnaam en password verwijderd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan