När jag skickar mail med cdonts vill jag ha ett "sendername" och mailadress istället för bara mailadress.
Nu har jag objSendMail.From = Franemail (mailadress)
jag skulle vilja lägga till ett namn med mailadressen.
Om ni förstår vad jag menar
Annars fungerar cdonts bra.
Här är lite kod:
If "Skicka test CDONTS" = submit Then
Set objConn = Server.CreateObject("ADODB.Command")
With objConn
.ActiveConnection = strConn
.CommandText = "getMailList"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter ("@intProductID", adInteger, adParamInput, 0, 2)
Set rs = .Execute
End With
While rs.EOF = False
strHtml = strHtml & Trim(rs("Emailadress")) &"&fromEmail=1\>Ta bort mig\</a\> \</font\>\</small\>\</center\>\</div\>\</dl\>\</td\>"
strHtml = strHtml & "\<td width=64 bgcolor=#CC0000 height=5\> \</td\>\</tr\>\</table\>"
strHtml = strHtml & "\</center\>\</div\>\</body\>\</html\>"
recipient = Trim(rs("Emailadress"))
i = i + 1
dim objSendMail
set objSendMail = CreateObject("CDONTS.NewMail")
' Set all the properties on the NewMail object using the values from the QueryString
objSendMail.FromName = namn
objSendMail.From = Franemail'Request.QueryString("SendFrom")
objSendMail.To = recipient'Request.QueryString("SendTo")
objSendMail.Cc = ""'Request.QueryString("SendCC")
objSendMail.Bcc = ""'Request.QueryString("SendBCC")
'objSendMail.Importance = "Normal"'Request.QueryString("SelImportance")
objSendMail.Subject = Amne'Request.QueryString("Subject")
objSendMail.Body = strHtml'Request.QueryString("BodyText")
objSendMail.BodyFormat = CdoBodyFormatHTML
objSendMail.MailFormat = CdoMailFormatMime
objSendMail.Importance = CdoNormal
'Send the message
objSendMail.Send
'Set the objSendMail to nothing, free its resources
set objSendMail = nothing
rs.movenext
Wend