Kvittering med CDO mail
Hejsa,Jeg bruger Microsofts indbyggede e-mail klient i windows server 2003 "CDOSYS".
Programmet virker helt perfekt, men der er dog lige 3 ting som jeg meget gerne vil have den til, men jeg aner ikke hvordan man gør????
1.
Når jeg sender er afsender altid e-mail adressen, kan man ikke ligeledes indsætte sit navn ligesom ved jmail og andre???
2. kvittering (når beskeden er modtaget)
Kan man få en kvittering når beskeden er modtaget på modtagerens server?? ligesom man kan ved outlook
3. kvittering (når beskeden er læst)
Kan man få en kvittering når beskeden er læst på modtagerens computer?? ligesom man kan ved outlook
2-3 skal helt kunne slåes fra med en if sætning?
Jeg har prøvet i dagevis at få det til at virke men er helt blank og kan heller ikke finde nogle eksempler.. håber der er nogle der kan hjælpe?
####### Script #############################3
'Send by using the port on an SMTP server.
Dim iMsg
Dim iConf
Dim Flds
Dim strtext
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver"
.Update
End With
strtext = standardtext
With iMsg
Set .Configuration = iConf
.To = "to@mail.dk" 'ToDo: Type a valid e-mail address.
.From = "mail@mail.dk"
.Subject = "this is the subject"
.TextBody = "this is the body text"
.fields("urn:schemas:mailheader:disposition-notification-to") = "mail@mail.dk"
.fields("urn:schemas:mailheader:return-receipt-to") = "mail@mail.dk"
.DSNOptions = cdoDSNSuccessFailOrDelay
.DSNOptions = 14
.fields.update
.Send
End With
