Mail versturen vanuit Access geeft foutmelding

[JEPEDEWE]

Binnen access wil ik vanuit een formulier waar een emailadres staat, via een knop een mail versturen.
Ik doe dit via de mailtoepassing van telenet webmail

mijn code:

Dim imsg As Object
Dim iconf As Object
Dim flds As Object
Dim schema As String

Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")
Set flds = iconf.Fields

' send one copy with SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
flds.Item(schema & "sendusing") = cdoSendUsingPort
flds.Item(schema & "smtpserver") = "smtp.telenet.be"
flds.Item(schema & "smtpserverport") = 587
flds.Item(schema & "smtpauthenticate") = cdoBasic
flds.Item(schema & "sendusername") = "jp.xxxxxxxxx@telenet.be"
flds.Item(schema & "sendpassword") = "xyz"
flds.Item(schema & "smtpusessl") = False
flds.Update

With imsg
.TO = Forms![E_mail]![TOBOX]
.From = "jp.dewinter@telenet.be"
.SUBJECT = Forms![E_mail]![SUBJECTBOX]
.HTMLBody = Forms![E_mail]![MESSAGEBOX]
Set .Configuration = iconf
.Send
End With

als ik klik krijg ik:

De server heeft het adres van de afzender geweigerd. Reactie van server 530 5.1.0 must authenticate first

wat doe ik hier fout?

Met dank

JP

@louishufkheeft het vermelde e-mail adres gemaskeerd.

[janne_man]

@JEPEDEWE 

Heb je dit al eens bekeken.