Email CDO.Message

[Raju]

I am using CDO.Message to create an email. Currently the email sent
says the email id of the sender however i would like it to say the
name + email id something like this
Email From : " Name"<name@name.com>

If I pass this as a constant like

Email From """Name"" <name@name.com>" it works. However when I try to
get the values and concatenate from the tables it fails. Any idea:

strSQL = "select top 1 * from tblEmail"
Set rs = Server.CreateObject("ADODB.Recordset")
Call GenerateRecordSet(strSQL,rs)
sCSName = rs("ConfirmationEmailName")
sCSEMail = rs("ConfirmationEmailSender")
sCSEmailFrom = sCSName & " <" & sCSEMail & ">" (This line will fail)
rs.Close
Set rs = Nothing

Set oMail = Server.CreateObject("CDO.Message")
set oConf = CreateObject("CDO.Configuration")
With oMail
Set .Configuration = oConf
..HTMLBody = "Test"
..To = "test@test.com"
..From = sCSEMailFrom
..Subject = " Test"
End With
Set oConf = Nothing
Set oMail = Nothing

[Daniel Crichton]

Raju wrote on Thu, 05 Jul 2007 16:20:21 -0700:

> I am using CDO.Message to create an email. Currently the email sent
> says the email id of the sender however i would like it to say the
> name + email id something like this
> Email From : " Name"<name@name.com>
>
> If I pass this as a constant like
>
> Email From """Name"" <name@name.com>" it works. However when I try to
> get the values and concatenate from the tables it fails. Any idea:
>
> strSQL = "select top 1 * from tblEmail"
> Set rs = Server.CreateObject("ADODB.Recordset")
> Call GenerateRecordSet(strSQL,rs)
> sCSName = rs("ConfirmationEmailName")
> sCSEMail = rs("ConfirmationEmailSender")
> sCSEmailFrom = sCSName & " <" & sCSEMail & ">" (This line will fail)

When you say that line fails, do you mean it gives the wrong value? If it's
causing an error then that suggests either the name or email is null.

If it's just that you get the wrong value, it's because you have no quotes
are the name part, so you end up with

Name <name@name.com>

instead of

"Name" <name@name.com>

Try this:

sCSEmailFrom = """" & sCSName & """ <" & sCSEMail & ">"


Dan