Mailing list system that supports ms access?

Discussion in 'Third-party applications' started by jnroche, Oct 10, 2009.

  1. Helllo guys!

    can someone point me to a good mailing list system that has a free trial and that supports ms access?


    thanks in advance!
     
  2. ...I've got a few in my old Classic ASP archives.
    Will look through those files later but...Do you promise to use this only for good things? ;-)
    (No spam, nothing harmful)
    All the best,
    Mark
     
  3. but im using aspx/.net? is that possible still? yeah this is not spamming, visitors have to be opted-in before they receive emails....

    thanks in advance!
     
  4. OK I'll look around.
    Keep in mind something like this should go down the tracks with SQL Sever, not Access. ;-)
     
  5. yeah, sql is better but my client does not have ms sql on their server package. only ms access via odbc. if that makes sense. i have to request them to have it upgraded to include ms sql but for now they just need it.

    Thanks a lot for helping. I'm still learning asp.net and server configuration and stuffs.
     
  6. hi!

    i was looking around as well and found digsolNOSv100 however, when i try to send an email to one email address it says message sent to [email address] but i dont actually receive it... the code for the mail.asp is:

    PHP:
    <!--Copyright 2002Dan HounshellDigger SolutionsAll rights reserved.
        
    This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 2.5 License
        
    To view a copy of this licensevisit http://creativecommons.org/licenses/by-nc-sa/2.5/ 
        
    or send a letter to Creative Commons543 Howard Street5th FloorSan FranciscoCalifornia94105USA. -->


    <%
    Sub SendEmail(eToNameeToEmaileFromNameeFromEmaileSubjecteBodyeCCNameeCCEmail_
            eBCCName
    eBCCEmaileAttachedFileeBoolHTML)

        if 
    gsMailComponent "CDO" then
            
            Set Mailer 
    Server.CreateObject("CDO.Message")
            
    Mailer.To eToEmail
            Mailer
    .From eFromEmail
            Mailer
    .Subject eSubject
            Mailer
    .Body eBody
            
    if eAttachedFile <> "" then
                Mailer
    .AttachFile eAttachedFile
            end 
    if
            if 
    eCCEmail <> "" then
                Mailer
    .Cc eCCEmail
            end 
    if
            if 
    eBCCEmail <> "" then
                Mailer
    .Bcc eBCCEmail
            end 
    if
            if 
    eBoolHTML then
                Mailer
    .BodyFormat 0
                Mailer
    .MailFormat 0
            end 
    if
            
    Mailer.Send
            Set Mailer 
    Nothing

        
    elseif gsMailComponent "ASPXP" then
        
            Set mail 
    Server.CreateObject("ASPXP.Mail"
            
    mail.Host gsMailHost
            mail
    .Port 25 
            mail
    .Subject eSubject
            mail
    .FromName eFromName
            mail
    .FromAddress eFromEmail
            
    'mail.Importance = 2 
            mail.ToList.Add eToEmail, EToName        
            if eBoolHTML then
                mail.HTMLBody = eBody 
            else
                mail.PlainBody = eBody
            end if
            if eCCEmail <> "" then
                mail.CCList.Add eCCEmail, eCCName
            end if
            if eBCCEmail <> "" then
                mail.BCCList.Add eBCCEmail, eBCCName
            end if
            if eAttachedFile <> "" then
                mail.Attachments.Add eAttachedFile
            end if
            
            on error resume next    
            mail.Send

            set mail = nothing

        elseif gsMailComponent = "PersitsASPMail" then
            '
    this is just the frameworkit needs to be setup for attachmentccbccetc
            
            set mail     
    server.CreateObject("Persits.MailSender")
            
    mail.Host     gsMailHost
            mail
    .From     eFromEmail
            mail
    .FromName     eFromName
            mail
    .AddAddress  eToEmail
            mail
    .AddReplyTo eFromEmail
            mail
    .Subject     eSubject
            mail
    .Body     eBody

            on error resume next
            mail
    .Send
            
        
    elseif gsMailComponent "Jmail" then
            
    'this is just the framework, it needs to be setup for attachment, cc, bcc, etc
            
            set mail     = server.CreateOBject( "JMail.Message" ) 
            mail.Logging     = true
            mail.silent     = true
            mail.From     = eFromEmail
            mail.FromName     = eFromName
            mail.Subject    = eSubject
            mail.AddRecipient eToEmail
            mail.Body     = eBody
     
            on error resume next
             mail.send(gsMailHost)     
            
        elseif gsMailComponent = "ServerObjectsASPMail" then
            '
    this is just the frameworkit needs to be setup for attachmentccbccetc
            
            set mail 
    Server.CreateObject("SMTPsvg.mail")
            
    mail.RemoteHost  gsMailHost
            mail
    .FromName    eFromName
            mail
    .FromAddress eFromEmail
            mail
    .AddRecipient eToEmaileToName
            mail
    .Subject     eSubject
            mail
    .BodyText    eBody

            on error resume next
            mail
    .SendMail 

        
    elseif gsMailComponent "MYASPMAILComponent" then ' some other component    
            '
    then do something else

        
    end if

    End Sub%>
    hope someone can point some issues...

    Thanks in advance!
     
  7. still got that problem above.
     
  8. all problem solved. But if you have a way better freeware version of a mailing list that i can look into that would be awesome.

    just for anyone out there who experience the same problem, the code below fixed it:

    PHP:
    if gsMailComponent "CDONTS" then
            
            Set Mailer 
    Server.CreateObject("CDO.Message")
            
    Set iConf CreateObject("CDO.Configuration")
            
    Set Flds iConf.Fields
            Flds
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
            
    Flds.Update
            Set Mailer
    .Configuration iConf
            Mailer
    .To eToEmail
            Mailer
    .From eFromEmail
            Mailer
    .Subject eSubject
            Mailer
    .HTMLBody eBody
            
    if eAttachedFile <> "" then
                Mailer
    .AttachFile eAttachedFile
            end 
    if
            if 
    eCCEmail <> "" then
                Mailer
    .Cc eCCEmail
            end 
    if
            if 
    eBCCEmail <> "" then
                Mailer
    .Bcc eBCCEmail
            end 
    if
            if 
    eBoolHTML then
                
    'Mailer.BodyFormat = 0
                '
    Mailer.MailFormat 0
            end 
    if
            
    Mailer.Send
            Set Mailer 
    Nothing
     

Share This Page