Posted by Dan Guzman on 06/30/06 11:44

> Is it possible for the "objEmail.To" to lookup the values from a sqlserver
> table?

No, but you can easily lookup the values in your script to build the
objEmail.To string. Below is an untested example:

Set connection = CreateObject("ADODB.Connection")
connection.Open "Provider=SQLOLEDB" & _
";Data Source=MyServer" & _
";Initial Catalog=MyDatabase" & _
";Integrated Security=SSPI"
Set emailAddressRs = _
connection.Execute("SELECT eMailAddress FROM dbo.Contacts")
recipientList = ""
Do While emailAddressRs.EOF = False
If recipientList = "" Then
recipientList = emailAddressRs.Fields(0).Value
Else
recipientList = recipientList & _
";" & emailAddressRs.Fields(0).Value
End If
emailAddressRs.MoveNext
Loop
emailAddressRs.Close
connection.Close

objEmail.To = recipientList

--
Hope this helps.

Dan Guzman
SQL Server MVP

"B" <no_spam@no_spam.com> wrote in message
news:_ZydndVFodrVxTnZnZ2dnUVZ_omdnZ2d@rcn.net...
> Follow-up to my original post.
>
> Is it possible for the "objEmail.To" to lookup the values from a sqlserver
> table?
>
> At the moment, I type the email address separated by a semi-colon.
>
> TIA~
>
>
>
> Set objEmail = CreateObject("CDO.Message")
>
> objEmail.From = "send@test.com"
> objEmail.To = "receive@test.com"
> objEmail.Subject = "TEST SUBJECT"
> objEmail.AddAttachment "\\server\test.csv"
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/sendusing") = 2
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/smtpserver") = "SERVER_NAME"
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/smtpauthenticate") = 1
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/sendusername") = "username"
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/sendpassword") = "userpwd"
> objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configu
> ration/smtpserverport") = 25
> objEmail.Configuration.Fields.Update
> objEmail.Send
>
> set objEmail = nothing
>
>

• Next in forum: Returning the newest rows
• Prev in forum: Re: SPROC won't execute - insufficient permissions
• Thread view: Re: Sending email (recipients)

[Reply to this message]