Halloj. En snabbfråga.

Jag skickar i dagsläget iväg ett mail med CDOSYS via en webplats, till två olika mottagare. Nu behöver jag göra så att dessa två får innehållet i HTMLBody till sig och en tredje får TextBody till sig. Någon som vet hur man går till väga i det läget?

Så här ser det ut nu.

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "noreply@cde.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

Kan du inte skicka 2 olika mail?

/Johan

Jag testade att köra

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

objMessage.To = "123456789@euromail.se"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]"& rs(3)
objMessage.TextBody = shortbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

Men då fick jag ett CDO.1 error

Äsch, nu hittade jag det felet. Jag hade glömt att ta bort en rad. och körde set ObjConfig = nothing innan mail 2. MEN nu skickar den till båda, men båda får HTMLbodyn och inte som jag ville det med en HTML och en utan.

Testa att skapa ett nytt "cdo.message", såhär:

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.smtp.nu"
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = "abc@123.com;def@123.com"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]" & rs(3)
objMessage.HTMLBody = mailbody
objMessage.fields.update
objMessage.Send

set objMessage = server.createobject("cdo.message")
objMessage.To = "123456789@euromail.se"
objMessage.From = "123@abc.com"
objMessage.Subject = "[ABC]"& rs(3)
objMessage.TextBody = shortbody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

/Johan

Man tackar man tackar.. Funkade bra.. Var tvungen att göra:

<code>
set objMessage = server.createobject("cdo.message")
Set objMessage.Configuration = objConfig
</code>

innan det andra med.