03. september 2006 - 18:02
Der er
4 kommentarer og 1 løsning
JMail MailMerge
Hej Eksperter, Jeg har denne kode for JMail MailMerge: ------------------------------------------------------- Set JMail = Server.CreateObject("JMail.Message") JMail.From = Request("NewsmailFromEmail") JMail.FromName = Request("NewsmailFromName") JMail.AddRecipient "%%EMail%%", "%%Name%%" JMail.Subject = "Nyhedsbrev fra " & Request("NewsmailFromName") JMail.Body = Request("NewsmailContentHTML") Set JMailMerge = Server.CreateObject("JMail.MailMerge") JMailMerge.MailTemplate = JMail ' JMailMerge.ContinueOnFail = True JMailMerge.BulkMerge myRS, True, "c:\inetpub\mailroot\pickup" ' JMailMerge.BulkMerge myRS, False, strSMTPServer Set JMailList = JMailMerge.Log For i = 0 To JMailList.Count - 1 Set JMailNewsmailReciever = JMailList.Item(i) Response.Write "<pre>" & JMailNewsmailReciever.EMail & "</pre>" Set JMailNewsmailReciever = Nothing Next Set JMailList = Nothing Set JMailMerge = Nothing Set JMail = Nothing ------------------------------------------------------- Da jeg ikke har arbejdet med MailMerge før, er jeg i tvivl om, hvor og hvordan jeg vælger modtagere ud fra min database til indsættelse i scriptet. Kan nogen hjælpe med dette? På forhånd tak!
Annonceindlæg fra Deloitte
03. september 2006 - 18:31
#1
DIM CONNECT,DBCONN,myRs CONNECT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb") Set DBCONN=Server.CreateObject("ADODB.Connection") DBCONN.OPEN CONNECT SET myRs = SERVER.CREATEOBJECT("ADODB.RECORDSET") myRs.OPEN "SELECT email,name FROM tabel", DBCONN, 1 Set JMail = Server.CreateObject("JMail.Message") JMail.From = Request("NewsmailFromEmail") JMail.FromName = Request("NewsmailFromName") JMail.AddRecipient "%%EMail%%", "%%Name%%" JMail.Subject = "Nyhedsbrev fra " & Request("NewsmailFromName") JMail.Body = Request("NewsmailContentHTML") Set JMailMerge = Server.CreateObject("JMail.MailMerge") JMailMerge.MailTemplate = JMail ' JMailMerge.ContinueOnFail = True JMailMerge.BulkMerge myRS, True, "c:\inetpub\mailroot\pickup" ' JMailMerge.BulkMerge myRS, False, strSMTPServer Set JMailList = JMailMerge.Log For i = 0 To JMailList.Count - 1 Set JMailNewsmailReciever = JMailList.Item(i) Response.Write "<pre>" & JMailNewsmailReciever.EMail & "</pre>" Set JMailNewsmailReciever = Nothing Next Set JMailList = Nothing Set JMailMerge = Nothing Set JMail = Nothing
03. september 2006 - 18:56
#2
Før du sender mails til alle kan du sende et par stykker til dig selv først så du kan teste indholdet af din mail. Det gør du ved at sætte denne linie ' JMailMerge.SetDebugMode "navn@domaene.dk", 5 ' Antal af test mails til dig selv Ind mellem ' JMailMerge.ContinueOnFail = True ----- sæt ind her JMailMerge.BulkMerge myRS, True, "c:\inetpub\mailroot\pickup" Når du så fjerner ' der står foran vil du sende mails til dig selv og sætter du ' foran sender du til Emails i DB
03. september 2006 - 19:08
#3
Jamen det er jo bare super. :) Takker mange gange! Smid et svar for points...
03. september 2006 - 19:24
#4
Det var godt - Her er et svar - tak for point :)
03. september 2006 - 20:09
#5
Jeg bliver lige nødt til at høre, om jeg kan erstatte %%Name%% og %%EMail%% med de feltnavne, jeg har i min DB, eller om jeg skal bruge AS i min SQL-sætning?
Kurser inden for grundlæggende programmering