03. august 2002 - 09:54Der 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> <INPUT type=submit value=Submit name=submit></P> </form> <% End If %>
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...
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.
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.