excel file verzenden met CDO

[Willem581]

Hallo,

Wie kan mijn helpen met het volgende probleem. Ik probeer deze file te verzenden, zoals aangegeven door Ron de Bruin op zijn site.
Ik heb de wijzigingen gedaan zoals door hem aangegeven. port 25 gewijzigd in 465 (en vice versa geprobeerd). Naam gebruiker gewijzigd (Ron de Bruin in je eigen gebruikersnaam), maar de macro blijft een foutmelding geven op nagenoeg de laatste regel .send. Zie ook het excel attachment.

Wie kan mij van een antwoord voorzien zodat de macro werkt. Bij voorbaat bedankt !

Bekijk bijlage Voorbeeld1.xlsm

 

[edmoor]

Het staat in de uitleg van Ron. Als het niet werkt moet je de ' tekens voor de groene regels verwijderen en de SMPT server van je eigen provider invullen. Zo dus bijvoorbeeld:

Sub CDO_Mail_Small_Text()
    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"]mail.kpnmail.nl[/COLOR]"
        .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 = "gebruiker@provider.nl"
        .CC = ""
        .BCC = ""
        .From = """Willem581"" <Willem@something.nl>"
        .Subject = "New figures"
        .TextBody = strbody
        .Send
    End With

End Sub

 

[Willem581]

vreemd bij KPN werkt dat niet

 

[edmoor]

Telfort is ook van KPN en bij mij werkt dat goed. Welk mail programma gebruik je zelf op die PC/Laptop?
Kijk ook hier:
http://kpn-customer.custhelp.com/app/answers/detail_page/a_id/16722

 

[edmoor]

Oeps! Er zat ook een tikfoutje in de code die ik plaatste. Dat is nu aangepast.
Hier werkt het ook prima met mail.kpnmail.nl als SMTP server.

 

[Willem581]

Ik gebruik outlook en gmail

 

[edmoor]

Heb je m'n bericht in #5 gelezen?

 

[Willem581]

Ik heb je bericht 5 gelezen

 

[edmoor]

Maar heb je ook die aangepaste code getest? Die werkt hier prima.

 

[Willem581]

Het werkt nu. Klasse Edmoor !

 

[edmoor]

Ok dan