Formular 2+bruger som modtager

Ja... det tordnede jo til morgen, så der var ikke andetat foretage sig, når man ikke kan sove ;-)

<%@ Language=VBScript %>
<%
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 = "fastmodtagermail1"
    strModtager2 = "fastmodtagermail2"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mailserver.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", strModtager1 & ";" & strModager2 & ";" & strModtagerUser
    objMailer.Subject    = strSubject
    objMailer.BodyText  = strContent
    if Mailer.SendMail then
        Response.Write "Mail sendt..."
    else
        Response.Write "Mail fejl. Fejlen var " &amp; Mailer.Response
    end if

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

/Steen

Endelig kommer eksperten.dk op igen....

denneside.asp - hvad indeholder denne side ..?
- og hvordan indsætter jeg koden, i body'en ..?

Denneside.asp er et synonym for hvad du vælger at kalde ovennævnte side. Dvs. at hvis du sætter ovenstående kode ind i en side der heder sendmail.asp, så skal denneside.asp rettes til sendmail.asp (sig selv)

Du kan sætte koden ind lige efter <body> eller hvor det passer dig bedst.

/Steen

Kunne du ikke lave et eksempel hvor det er indsat ..?
- jeg skal helst ha'det i pap :-)

Hmmm... ok så. Send mig den side du vil have det placeret i: steen@soenderup.com

Jeg har ikke nogen side - men kan så arbejde videre på den du laver... OK ..?

ok... kommer om lidt

<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 = "fastmodtagermail1"
    strModtager2 = "fastmodtagermail2"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mailserver.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", strModtager1 & ";" & strModager2 & ";" & strModtagerUser
    objMailer.Subject    = strSubject
    objMailer.BodyText  = strContent
    if Mailer.SendMail then
        Response.Write "Mail sendt..."
    else
        Response.Write "Mail fejl. Fejlen var " &amp; Mailer.Response
    end if

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


</BODY>
</HTML>

øøøøøøhhhh...
Jeg får denne fejl:

Der opstod en Microsoft VBScript-kompileringsfejl error '800a0408'

Tegnet er ugyldigt

/denneside.asp, line 1

<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 = "fastmodtagermail1"
    strModtager2 = "fastmodtagermail2"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mailserver.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", strModtager1 & ";" & strModager2 & ";" & strModtagerUser
    objMailer.Subject    = strSubject
    objMailer.BodyText  = strContent
    if Mailer.SendMail then
        Response.Write "Mail sendt..."
    else
        Response.Write "Mail fejl. Fejlen var " & Mailer.Response
    end if

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


</BODY>
</HTML>

Hov.... Jeg har lige rette koden lidt ;-) prøv denne i stedet:

<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 = "fastmodtagermail1"
    strModtager2 = "fastmodtagermail2"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mailserver.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", strModtager1 & ";" & strModager2 & ";" & strModtagerUser
    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>
  <P>Email: <INPUT name=Email>&nbsp;<INPUT type=submit value=Submit name=submit></P>
  </form>
<%
End If
%>


</BODY>
</HTML>

Den er der endnu:
Der opstod en Microsoft VBScript-kompileringsfejl error '800a0408'

Tegnet er ugyldigt

/denneside.asp, line 1

- mangler der et eller andet på serveren..?

Er det den sudste nye kode du anvender... den ovenover?

Nemlig!

Er siden online? hvilken url?

http://www.rapp.dk/denneside.asp

Gider du ikke lige maile mig dokumentet på steen@soenderup.com

/Steen

Jeg får denne:
HTTP Error 404

404 Not Found

The Web server cannot find the file or script you asked for. Please check the URL to ensure that the path is correct.

Please contact the server's administrator if this problem persists.


- og URL'en er: http://www.rapp.dk/sendmail.asp?mode=sendmail

Det var en test uden tilrettelse af diverse modtagere...

du skal rette den side jeg sendte dig til sendmail.asp derfor ;-)

Mail fejl. Fejlen var 503 must have sender and recipient first

Her er hvad jeg har tilrettet:
    strModtager1 = "rapp_co@mac.com"
    strModtager2 = "hanegal@rapp.dk"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mail.rapp.dk"
    strAfsender = "din@email.dk"
    strSubject = "Skriv emne her"

Prøv at erstatte med det her:

Set objMailer = Server.CreateObject("SMTPsvg.Mailer")
    objMailer.FromName  = "Mailformular"
    objMailer.FromAddress= strAfsender
    objMailer.RemoteHost = strMailserver
    objMailer.AddRecipient "Mailrobot", strModtager1
    objMailer.AddRecipient "Mailrobot", strModtager2
    objMailer.AddRecipient "Mailrobot", strModtagerUser
    objMailer.Subject    = strSubject
    objMailer.BodyText  = strContent

altså det længere nede i koden

Det virker nu, meeeeeeen...

Jeg har tilrettet som følgende:

strModtager1 = "rapp_co@mac.com"
    strModtager2 = "ml@rapp.dk"
    strModtagerUser = Request.Form("Email")
    strContent = "Dette er indholdet af din email......"
    strMailserver = "mail.rapp.dk"
    strAfsender = "din@email.dk"
    strSubject = "Skriv emne her"

- men jeg modtager ingen mail på ml@rapp.dk ..?

Kan man BCC de 2 faste modtagere ..?
Løses evt. i et nyt sp.

hvad med de 2 andre... kommer de frem?

Set objMailer = Server.CreateObject("SMTPsvg.Mailer")
    objMailer.FromName  = "Mailformular"
    objMailer.FromAddress= strAfsender
    objMailer.RemoteHost = strMailserver
    objMailer.AddRecipient "Mailrobot", strModtagerUser
    objMailer.AddBCC "Mailrobot", strModtager1
    objMailer.AddBCC "Mailrobot", strModtager2   
    objMailer.Subject    = strSubject
    objMailer.BodyText  = strContent

Har lige checket og nej desværre!

Jeg modtager kun på rapp_co@mac.com

hvad efter vi har sat BCC på?

der sker altså et eller andet når du sætter koden ind.. har jeg set.. tjek din kode

Efter BCC modtager jeg kun én mail (ml@rapp.dk)
rapp_co@mac.com og strModtagerUser kommer ikke frem

Se hvad jeg fandt:

AddCC or AddBCC doesn't work" - is this a bug with AspMail?
or
"I'm adding multiple recipients but only the first one is getting delivered. What's wrong with AspMail?"


AddRecipient, AddCC and AddBCC work just as they should. The problem is not with AspMail. It is likely that your SMTP server is rejecting "foreign addresses" (see "no relay" question below).
To test whether AspMail is functioning properly use the SMTPLog property to capture an SMTP session with multiple recipients. All the recipients you send to should appear in the log as the SMTP envelope is sent. If they all appear then the problem is with your SMTP server or an SMTP server down the stream (or your addresses are invalid).

Det lader altså til at opsætningen på din server ikke tillader afsending af mails med flere modtagere... så jeg kan ikke hjælpe dig videre... men du kom da et godt stykke af vejen

/Steen

Men den sender kun til rapp_co@mac.com
uanset om det står sådan:

strModtager1 = "ml@rapp.dk"
strModtager2 = "rapp_co@mac.com"
strModtagerUser = Request.Form("Email")
strContent = "Dette er indholdet af din email......"
strMailserver = "mail.rapp.dk"
strAfsender = "din@email.dk"
strSubject = "Skriv emne her"


- eller sådan:

strModtager1 = "rapp_co@mac.com"
strModtager2 = "ml@rapp.dk"
strModtagerUser = Request.Form("Email")
strContent = "Dette er indholdet af din email......"
strMailserver = "mail.rapp.dk"
strAfsender = "din@email.dk"
strSubject = "Skriv emne her"