Ik weet niet precies of het wel kan, ik vindt het niet op google/Got. Een mail versturen lukt me wel, voorbeeld:
Werkt perfect..
Maarnu wil ik alleen mijn mailbox uitlezen, kan dat met cdosys op deze manier?
Het is geen lokaale smtp service, ik gebruik die van mn host.
Is het mogelijk, zo ja, waar moet ik zoeken om de oplossing te vinden... ?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| MailUserName = Session.Contents("MailUserName")
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = MailUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Session.Contents("MailPassword")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxxxxxxxx.xx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = RF("cTo")
.From = MailUserName & "@xxxxxxxxxx.nl"
.Subject = RF("cSubject")
.TextBody = RF("cBodyText")
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing |
Werkt perfect..
Maarnu wil ik alleen mijn mailbox uitlezen, kan dat met cdosys op deze manier?
Het is geen lokaale smtp service, ik gebruik die van mn host.
Is het mogelijk, zo ja, waar moet ik zoeken om de oplossing te vinden... ?