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.
... Meer weergeven