Avatar billede rapp Nybegynder
03. august 2002 - 09:54 Der er 6 kommentarer og
1 løsning

ASP formular

Jeg har et problem med denne kode...
Det er en formular som sender til 3 forskellige (2 faste og brugeren).
Men den sender kun til 1 af de faste (mailadr2@host.dk) og brugeren.
Den ser bort fra mailadr1@host.dk også hvis jeg bytter rundt på mailadr2@host.dk
og mailadr1@host.dk

DET ER FIKTIVE MAILADRESSER...

<HTML>
<HEAD>
</HEAD>
<BODY>

<%
If Request.QueryString("mode")="sendmail" Then
   
    Dim strModtager1, strModtager2, strModtagerUser, strSubject, strContent, obMailer, strMailserver, strAfsender
   
    'Tilpas de f¯lgende 7 linier, samt modtagersiden nederst p siden (Formularen)
    strModtager1 = "mailadr1@host.dk"
    strModtager2 = "mailadr2@host.dk"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mail.host.dk"
    strAfsender = "din@email.dk"
    strSubject = "Skriv emne her"
   
    Set objMailer = Server.CreateObject("SMTPsvg.Mailer")
    objMailer.FromName = "Mailformular"
    objMailer.FromAddress= strAfsender
    objMailer.RemoteHost = strMailserver
    objMailer.AddRecipient "Mailrobot", strModtagerUser
    objMailer.AddRecipient "Mailrobot", strModtager1
    objMailer.AddRecipient "Mailrobot", strModtager2
    objMailer.Subject = strSubject
    objMailer.BodyText = strContent
    if objMailer.SendMail then
        Response.Write "Mail sendt..."
    else
        Response.Write "Mail fejl. Fejlen var " & objMailer.Response
    end if

Else
%>
  <form method=post action=sendmail.asp?mode=sendmail id=form1 name=form1>
  <P>Email: <INPUT name=Email>&nbsp;<INPUT type=submit value=Submit name=submit></P>
  </form>
<%
End If
%>


</BODY>
</HTML>
Avatar billede eagleeye Praktikant
03. august 2002 - 11:07 #1
Tjek at det er en rigtig email adresse, har du prøvet med en anden end "mailadr1@host.dk" som du ved virker??
Avatar billede rapp Nybegynder
03. august 2002 - 11:21 #2
Den er OK.
Det kan ikke være fordi at mailadr1@host.dk bruger samme mailserver og ikke kan sende til sig selv...
- bare en tanke!!!
Avatar billede eagleeye Praktikant
03. august 2002 - 11:45 #3
Tja. Det bør ikke være et problem, men du kan da evt prøve at sende til en helt anden hvis du har muligheden, hvis den så kommer frem er det åbenbart et problem et eller andet sted...
Avatar billede sn0wflake Nybegynder
03. august 2002 - 12:59 #4
Prøv at smide dine mail-adresser i f.eks. et array. Iterer så dette array således:

For i = 0 To UBound(aryMail)
start_mail_object
slut_mail_object
Next

Håber du forstår hvad jeg mener med det :)
Avatar billede rapp Nybegynder
03. august 2002 - 13:16 #5
øøhhhhhhh...
Kunne du ikke paste et eksempel indsat i min kode..?
- skal helst ha' det i pap ;-)
Avatar billede sn0wflake Nybegynder
03. august 2002 - 19:43 #6
Dim i
Dim aryTEMP

aryTEMP = Array("hej@to.mat", "hej@ba.nan")

For i = 0 To UBound(aryTEMP)
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mail.host.dk"
    strAfsender = "din@email.dk"
    strSubject = "Skriv emne her"
   
    Set objMailer = Server.CreateObject("SMTPsvg.Mailer")
    objMailer.FromName = "Mailformular"
    objMailer.FromAddress= strAfsender
    objMailer.RemoteHost = strMailserver
    objMailer.AddRecipient "Mailrobot", strModtagerUser
    objMailer.AddRecipient "Mailrobot", aryTEMP(i) <<<*** Se her ***
    objMailer.Subject = strSubject
    objMailer.BodyText = strContent
    if objMailer.SendMail then
        Response.Write "Mail sendt..."
    else
        Response.Write "Mail fejl. Fejlen var " & objMailer.Response
    end if
Next

************************

Der er sikkert flere ting der skal tilpasses, men det er op til dig selv at rette da jeg ikke har adgang til dit site.
Avatar billede sn0wflake Nybegynder
03. august 2002 - 19:47 #7
Din kode er egentligt meget ustabil. Husk altid at lukke SMTPsvg.Mailer objektet. Læs mere på f.eks. http://www.verio.com/support/view_article.cfm?doc_id=566 eller se mere på Google (http://www.google.com/search?q=SMTPsvg.Mailer&ie=UTF-8&oe=UTF-8&hl=da&lr=)
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