Avatar billede sommerfulg Nybegynder
28. april 2001 - 22:59 Der er 8 kommentarer og
1 løsning

Hjælp til udfyldelse af smtp oplysninger

Hej jeg har netop downloaded en komponent hvor jeg skal udfylde min smtp oplysninger. Hvem kan hjælpe med at give et eksempel på hvad jeg skal udfylde. Eksemplet der med følger er ikke klart nok for mig (nybegynder)

Set smtp = Server.CreateObject(\"SmtpMail.SmtpMail.1\")
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open ConnString
   
    MailServer = \"mail1.stoneplanet.com\"
    Recipients = request.form(\"email\")
    Sender = \"asp@asp-dev.ml.org\"
Avatar billede lars-k Nybegynder
28. april 2001 - 23:08 #1
Hej sommerfugl

Hvad skal du lige klare med denne kode? Skal du sende en mail fra en form? Send lige lidt mere info - jeg er på længe endnu, da konen er faldt i søvn og jeg kan slænge mig hen i cyberspace 8-))

Lars-k
Avatar billede sommerfulg Nybegynder
28. april 2001 - 23:21 #2
Mit problem er at jeg er igang med en debatside (downloaded komponent) hvor man modtager en email når der er nyt i spørgsmålet. Og jeg har JMail der fungerer via smtp.worldonline.dk. Men dette kan jeg ikke få til at fungere:

Sub DoEmail(email, user_name)
    \' ###  Emails Topic Author if Requested. 
    \' ###  This needs to be edited to use your own email component
    \' ###  if you don\'t have one, try the w3Jmail component from www.dimac.net it\'s free!
   
    Set smtp = Server.CreateObject(\"JMail.SMTPMail\")
    MailServer = \"smtp.worldonline.dk\"
    Recipients = email
    Sender = \"Info@minside.dk\"
    Subject = \"DebatForum - Svar på dit indlæg\"
    msg = \"Hello \" & user_name & vbcrlf & vbcrlf
    msg = msg & \"You have received a reply to your posting on the ASP Resources Forum.\"
    msg = msg & \"Regarding the subject - \" & Request.Form(\"topic_title\") & \".\" & vbcrlf & vbcrlf
    msg = msg & \"You can view the reply at \" & Request.Form(\"refer\") & vbcrlf

    smtp.MailServer = MailServer
    smtp.Recipients = Recipients
    smtp.Sender = Sender
    smtp.Subject = Subject
    smtp.Message = msg
    on error resume next \'  Ignore Errors
    smtp.SendMail2
    Set smtp = Nothing

End Sub

Avatar billede sommerfulg Nybegynder
28. april 2001 - 23:30 #3
Jeg får denne fejl hvis det kan hjælpe

Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'smtp.MailServer\'

/Forum2/post_info.asp, line 91
Avatar billede sommerfulg Nybegynder
28. april 2001 - 23:32 #4
og linie 91 er denne:

Set smtp = Server.CreateObject(\"JMail.SMTPMail\")
Avatar billede lars-k Nybegynder
28. april 2001 - 23:41 #5
Hej sommerfugl

Set smtp = Server.CreateObject(\"smtp.SMTPMail\")

Sådan skal første linie se ud - prøv igen.

Lars-k
   
Avatar billede lars-k Nybegynder
28. april 2001 - 23:50 #6
Har du kringlet problemet sommerfugl? :-)
Avatar billede sommerfulg Nybegynder
29. april 2001 - 00:14 #7
Nej desværre - får stadig fejl i samme linie:

Server object error \'ASP 0177 : 800401f3\'

Server.CreateObject Failed

/Forum2/post_info.asp, line 81

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
Avatar billede dingkee Nybegynder
29. april 2001 - 12:06 #8
Prøv dette her

<%
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Konfiguration ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Afsenderens_email = \"Info@minside.dk\"
Afsenderens_navn = \"Minside\"
smtpserver = \"smtp.worldonline.dk\"
Mailtype=1
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Mailtype=1 then

Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        \' This is my local SMTP server
        JMail.ServerAddress = smtpserver
   
        \' mail config settings
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
    JMail.SenderName = Afsenderens_navn
        JMail.Sender = Afsenderens_email
        JMail.Subject = subject
        JMail.AddRecipient Emailad
       
       
        JMail.Body=BodyTextto

        \' 1 - highest priority (Urgent)
        \' 3 - normal
        \' 5 - lowest
       
        JMail.Priority = 1
       
        \' Send it...
        JMail.Execute
        set JMail = nothing

End if
If Mailtype=2 then

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")

        \' This is my local SMTP server
        Mailer.Remotehost = smtpserver
   
        \' mail config settings
        Mailer.Charset = \"ISO-8859-1\"
        Mailer.Encoding =2
       
        Mailer.FromName = Afsenderens_navn
        Mailer.Sender = Afsenderens_email
        Mailer.AddRecipient Navn,Emailad
        Mailer.Subject =Subject
        Mailer.BodyText=BodyTextto
           
      Mailer.Priority = 1


    set Mailer = nothing

End if
%>
Avatar billede burningice Nybegynder
30. april 2001 - 14:06 #9
er du sikker på at jmail er installeret på den webserver du kører dit asp dokument fra??
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



IT-JOB

Udviklings- og Forenklingsstyrelsen

IT-generalister til rollen som systemejer

Sentia Denmark A/S

Service Delivery Manager

De Nationale Geologiske Undersøgelser for Danmark og Grønland (GEUS)

IT-systemadministrator søges til GEUS

Udlændinge- og Integrationsministeriet

Forretningsudvikler med fokus på digitalisering og AI