Rasmus Nielsen wrote :
>> JMails mass-emailer (som min egen udbyder gudskelov har) tillader at
>> overføre et recordset samt en template til mailserverkomponenten, der
>> så selv fletter data ind i hver email. Det er næsten ubegribeligt
>> (for de af os, der har prøvet at kode løsninger med gennemløb af et
>> recordset og herefter udsendelse af unikke emails) så kort tid det
>> tager at sende emails.
>
> Har du mulighed for at sende noget af kildekoden til mig? Jeg har
> nemlig prøvet at få den MailMerge funktion du omtaler til at virke med
> et RS, men jeg kan ikke
> få det til at virke...
dim strSql ' as string
strSql = "select strEmail,strFirstName FROM users
dim oRsEmail
set orsEmail = Server.CreateObject("ADODB.Recordset")
with oRsEmail
.ActiveConnection = oCon
.CursorLocation = 3 ' adUseClient
.CursorType = 0 ' adOpenForwardOnly
.LockType = 1 ' adReadOnly
.Source = strSQL
.Open
end with
dim oEmail ' as JMail.Message
dim BodyFromForm as string
BodyfromForm = Request.Form("body")
Body = "Til %%strFirstName%% %%strLastName%%." & vbCrLf &_
vbCrLf &_
BodyFromForm & vbCrLf &_
' Her laves vores template
set oEmail = Server.CreateObject("JMail.Message")
oEmail.FromName = "Dit navn"
mail.From = "din email"
mail.Subject = Request.Form("subject")
mail.Body = Body
mail.AddRecipient "%%strEmail%%", "%%strFirstName%%"
dim oMerge
'her oprettes mailmergeobjekt
set oMerge = Server.CreateObject("JMail.MailMerge")
oMerge.MailTemplate = oEmail
' testlinie der sender 10 emails til testadresse
oMerge.SetDebugMode "test@email.dk", 10
oMerge.BulkMerge oRsEmail, true
(jeg har sakset lidt i min eksisterende kode, så der kan fremkomme fejl.
Dette bør dog give dig en idé om hvordan man gør)
--
Jesper Stocholm -
www.stocholm.dk
.... der gerne vil gøre usenet til et trygt sted at være.