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

Ik krijg deze macro niet werkend

Status
Niet open voor verdere reacties.
D

Drieband

Gebruiker
Lid geworden
30 dec 2011
Berichten
107
Hallo,
daar ik enkel de nederlandse taal beheers is het moeilijk om de code te begrijpen,
Daarom ook dat ik hier hulp vraag.
Ik krijg een melding te zien als volgt:
De configuratiewaarde "SendUsing" is ongeldig,kan er iemand mij helpen aub.

Dank bij voorbaat
 

Bijlagen

  • Kopie van Wedstrijdblad_TRVR_Vrij-V8.5(275).xlsm
    115 KB · Weergaven: 74
Je moet wel de CDO configuratie goed vullen:
Code: 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    
    Schema = "http://schemas.microsoft.com/cdo/configuration/"
    iConf.Load -1                                               [COLOR="#008000"]'zet CDO standaard instellingen[/COLOR]
    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
NB:
De gebruikte waarden achter de = tekens zijn voorbeelden.
Gebruik daar de waarden die voor je mail account gelden.
 
Laatst bewerkt:
Het Worksheet_Change Event kan je ook wat eenvoudiger maken. Met Google vertalen ben je niet meer beperkt tot alleen de kennis van de Nederlandse taal.
'Werkblad_Verander evenement' geeft toch een aardige indruk van wat een 'Worksheet_Change Event' inhoudt.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long, ar
  ar = Array("$E$26", "H7", "$J$26", "M7", "$O$26", "R7", "$T$26", "C7")
  With Target
    x = Application.Match(.Address, ar, 0)
    If IsNumeric(x) Then
      Application.Goto Range(ar(x))
      Exit Sub
    End If
    
    Select Case .Column
      Case 3, 8, 13, 18
        Application.Goto .Offset(, 2)
      Case 5, 10, 15, 20
        Application.Goto .Offset(1, -2)
    End Select
  End With
End Sub
 
Edmoor,bedankt voor je reactie maar helaas begrijp ik totaal niets van dit gebeuren.Ik weet dus niet wat en waar er moet ingevuld worden.
 
Verander je code in module 3 eens in deze code :

Code: 
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    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") = "[COLOR="#FF0000"]relay.proximus.be[/COLOR]"
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = [COLOR="#FF0000"]587[/COLOR]
           .Update
    End With

    strbody = "Beste" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"

    With iMsg
        Set .Configuration = iConf
        .To = "caramboller@proximus.be"
        .CC = ""
        .BCC = ""
        .From = """Lieve"" <verhoevenlieve@proximus.be>"
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With

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

De gegevens in het rood moeten de smtpserver en poort nummer van jouw internet provider zijn
 

Bijlagen

  • Kopie van Wedstrijdblad_TRVR_Vrij-V8.5(275) (1).xlsm
    114,8 KB · Weergaven: 40
Laatst bewerkt:
Dank voor je aanbreng,maar nu krijg ik een foutmelding.Als ik op foutmelding klik zie ik dat .Send geel gekleurd is?
 
De foutmelding zelf is belangrijk.
Maar waarom gebruik je CDO en niet Outlook?
 
Laatst bewerkt:
Edmoor,
Het is voor een vriend dat ik dit probeer te realiseren,deze heeft geen outlook.Die gebruikt nog WLM op een oudere windows besturing.
Maar indien mogelijk, zou het ook kunnen via gmail?
 
Die foutmelding is van belang zoals edmoor aangaf welke foutmelding krijg je dan te zien ?
de smtpserver en het SMTP port nummer in de code in het rood is dat ook jouw Smtpserver van je internet provider ?

Met Gmail kan het ook zie code :

Code: 
[COLOR="#008000"]'Als u een GMail-account hebt, kunt u dit voorbeeld proberen om de GMail smtp-server te gebruiken
'Het voorbeeld stuurt een klein sms-bericht
'Je moet vier coderegels wijzigen voordat je de code kunt testen
'.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Volledig Gmail-e-mailadres"
'.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail-wachtwoord"
'Gebruik uw eigen e-mailadres om de code in deze regel te testen
'.To = "E-mailadres ontvanger"'Wijzig uw naam in de Van-naam die u wilt gebruiken
'.From = "" "Uw naam" "<Antwoord@something.nl>"
'Als u deze foutmelding krijgt: het transport kan geen verbinding maken met de serverprobeer vervolgens de SMTP-poort te wijzigen van 25 in 465
'Mogelijk moet u ook de optie
' Minder veilig 'inschakelen voor GMail'https://www.google.com/settings/security/lesssecureapps[/COLOR]

Sub CDO_Mail_Small_Text_2()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Full GMail mail address"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "GMail password"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    strbody = "Hi there" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"

    With iMsg
        Set .Configuration = iConf
        .To = "Mail address receiver"
        .CC = ""
        .BCC = ""
        .ReplyTo = "Reply@something.nl"        
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
    
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
End Sub
 
Laatst bewerkt:
@Edmoor

Je was me al voor.
Ik zag pas later dat je al een voorbeeldje met Gmail heeft gemaakt
 
Kan gebeuren, geen probleem uiteraard :)
 
Edmoor,

Kan dit verwerkt worden in mijn voorbeeld bestand?De Range (B2:T31)moet mee verstuurd worden,liefst in PDF.
Dank u
 
Ik veronderstel dat de pdf op het bureaublad verschijnt en dan verstuurd word.
Doch ik zie niets gebeuren.
 
Dan doe je toch iets niet goed want het werkt hier prima.

Heb je wel eerst het document op je bureaublad opgeslagen?
Heb je het nummer en week ingevuld?
Heb je op de knop Wedstrijdblad opslaan als PDF gedrukt?
Heb je de SMTP gegevens goed ingevuld?
Is het Google account zo aangepast dat minder veilige apps toegestaan zijn?

Allemaal zaken die je zelf moet controleren uiteraard.
Zie hier de PDF die ik gemaild kreeg:
Bekijk bijlage Vrij_Wk22_Bc Biljart World 1-BC Shooters Team.pdf
 
Laatst bewerkt:
Natuurlijk,hoe dom kan een mens toch zijn soms,nietwaar.

In naam van mijn vriend moet ik je nogmaals bedanken voor je inbreng en geduld.
Ik zet dan ook de vraag als zijnde opgelost.
Groeten,
Jhonny
 
Neem ik er een biertje op.
Graag gedaan en proost! :D
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan