Avatar billede madssch Nybegynder
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!
Avatar billede kiddoe Nybegynder
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
Avatar billede kiddoe Nybegynder
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
Avatar billede madssch Nybegynder
03. september 2006 - 19:08 #3
Jamen det er jo bare super.  :)

Takker mange gange!

Smid et svar for points...
Avatar billede kiddoe Nybegynder
03. september 2006 - 19:24 #4
Det var godt - Her er et svar - tak for point :)
Avatar billede madssch Nybegynder
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?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester