Goedemiddag,
Ik heb een accessprogramma gemaakt waarin ik de klanten een mail wil sturen.
Dit gebeurt met de volgende code:
Dit werkte perfect.
Alleen na 100 mailtjes gooit de KPN mij op de blacklist.
En kan ik niets meer versturen met poort 25.
Hoe zou ik dit op kunnen lossen, zodat ik mails via mijn provider (Cloud86)kan versturen.
Ik moet dan gebruikersnaam , wachtwoord, server en poort kwijt kunnen.
Heeft er iemand een oplossing.
Alvast bedankt.
Frank Schuurmans.
Ik heb een accessprogramma gemaakt waarin ik de klanten een mail wil sturen.
Dit gebeurt met de volgende code:
Code:
'-------------------------
Me.herinnering2 = Date
Me.MailID = "H1-" & "H2-"
'---------------------------------
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") = "smtp.kpnmail.nl"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
strbody = "Beste heer/mevrouw, " & Me.Naam & vbNewLine & vbNewLine & _
"Enige tijd geleden hebben wij uw computer of laptop voorzien van het ICT-Keurmerk." & vbNewLine & _
"Op " & Me.herinnering1 & " stuurden wij u een mail om u erop attent te maken dat uw ICT-Keurmerk binnenkort gaat verlopen." & vbNewLine & _
"Uw ICT-Keurmerk is verlopen op:" & Me.Vervaldatum & "." & vbNewLine & _
"U kunt uw computer of laptop nu niet meer periodiek schoonmaken en bent u minder veilig bij internetbankieren." & vbNewLine & _
"Uw computer of laptop wordt nu ook intern niet gereinigd, op den duur zal uw computer of laptop dicht gaan zitten van het stof." & vbNewLine & _
"De werktemperatuur zal oplopen wat ten koste gaat van de levensduur van uw computer of laptop." & vbNewLine & _
"Indien u uw ICT-Keurmerk weer wilt verlengen, is 1 telefoontje genoeg (0411-616591)." & vbNewLine & _
"U kunt dan een afspraak maken dat wij uw computer of laptop on-line softwarematig schoonmaken of u kunt uw computer of laptop naar de winkel brengen." & vbNewLine & _
"Als u uw computer of laptop naar de winkel brengt, is deze na 1 werkdag weer klaar." & vbNewLine & _
"Na de controle krijgt u het ICT-Keurmerk certificaat en kunt u weer veilig internetten en telebankieren." & vbNewLine & _
"De kosten voor het ICT-Keurmerk, reiniging, controle en optimalisatie bedragen 30 Euro." & vbNewLine & vbNewLine & vbNewLine & _
"Met vriendelijke groet," & vbNewLine & _
"V-LITE Computer & Fotoservice." & vbNewLine & vbNewLine & _
"Dé computerwinkel van Boxtel."
With iMsg
Set .Configuration = iConf
.To = Me.[Email]
.CC = ""
.BCC = ""
.From = """V-LITE Computer Service"" <info@v-lite.nl>"
.Subject = "Verlenging van uw ICT-Keurmerk"
.TextBody = strbody
.Send
End With
MsgBox "Relatie ontvangt nu mail betreffende verlenging ICT-Keurmerk"
'If Me.Dirty Then 'Save any edits.
' Me.Dirty = False
'End If
' If Me.NewRecord Then 'Check there is a record to print
'MsgBox "Select a record to print"
'Else
' strWhere = "[id] = " & Me.Id
' DoCmd.OpenReport "verlopen_ict-keurmerk", , , strWhere
'End If
End Sub
'----------------------------------------------Dit werkte perfect.
Alleen na 100 mailtjes gooit de KPN mij op de blacklist.
En kan ik niets meer versturen met poort 25.
Hoe zou ik dit op kunnen lossen, zodat ik mails via mijn provider (Cloud86)kan versturen.
Ik moet dan gebruikersnaam , wachtwoord, server en poort kwijt kunnen.
Heeft er iemand een oplossing.
Alvast bedankt.
Frank Schuurmans.
Laatst bewerkt door een moderator:
