Sende 2 mails via JMail

Her er et eksempel på den kode jeg bruger til min kontaktformular:

SenderName = Request.Form("navn")
SenderEmail = Request.Form("email")
Subject = Request.Form("emne")
Body = Request.Form("besked")

Recipient = "minmail@minmail.dk"
smtp_server_address = "smtp.server.dk"

Set myMail = Server.CreateObject("JMail.Message")
myMail.From = SenderEmail
myMail.Subject = "Kontaktformular"
myMail.AddRecipient Recipient
myMail.ISOEncodeHeaders = false
myMail.ContentTransferEncoding = "8bit"
myMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
myMail.Body = Body
myMail.Priority = 3

If Not myMail.Send(smtp_server_address) Then
  Response.Redirect("kontakt.asp?msg=false")
Else
  strNavn = SenderName
  strEmail = SenderEmail
  strSubject = Subject
  strBody = Body
End If

myMail.Execute
myMail.Close

Set myMail = Nothing

Hvordan vil jeg f.eks. få den til at sende en kvittering med de afsendte oplysninger til afsenderen?

Apo

Hvis det er samme mail kunden skal have som du også selv får, så kan du jo tilføje dig selv som BCC

myMail.AddRecipient SenderEmail
myMail.AddRecipientBCC Recipient

/Goose

Kunden skal have en anden mail, der indeholder beløb, o.s.v.

Apo

ved ik om det er helt optimalt, men kan du ikke bare sætte en jmail kode under, så det ser sådan her ud:

<%
SenderName = Request.Form("navn")
SenderEmail = Request.Form("email")
Subject = Request.Form("emne")
Body = Request.Form("besked")
body2 = "en anden besked"

Recipient = "minmail@minmail.dk"
smtp_server_address = "smtp.server.dk"

Set myMail = Server.CreateObject("JMail.Message")
myMail.From = SenderEmail
myMail.Subject = "Kontaktformular"
myMail.AddRecipient Recipient
myMail.ISOEncodeHeaders = false
myMail.ContentTransferEncoding = "8bit"
myMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
myMail.Body = Body
myMail.Priority = 3

If Not myMail.Send(smtp_server_address) Then
  Response.Redirect("kontakt.asp?msg=false")
Else
  strNavn = SenderName
  strEmail = SenderEmail
  strSubject = Subject
  strBody = body2
End If

myMail.Execute
myMail.Close

Set myMail = Nothing

Set myMail = Server.CreateObject("JMail.Message")
myMail.From = SenderEmail
myMail.Subject = "Kontaktformular"
myMail.AddRecipient Recipient
myMail.ISOEncodeHeaders = false
myMail.ContentTransferEncoding = "8bit"
myMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
myMail.Body = Body
myMail.Priority = 3

If Not myMail.Send(smtp_server_address) Then
  Response.Redirect("kontakt.asp?msg=false")
Else
  strNavn = SenderName
  strEmail = SenderEmail
  strSubject = Subject
  strBody = Body
End If

myMail.Execute
myMail.Close

Set myMail = Nothing
%>

Nielsmo >> Jeg har tidligere forsøgt mig med det eksempel du kommer med, dog uden held.

Imidlertid har jeg fundet en løsning. Den ene mail sendes med 'myMail' og den anden sendes med 'myMail2' (de må åbenbart ikke hedde det samme)

Apo

Nå, jeg er i gavehumør i dag, så du får lige nogle beskedne 'trøstpoints' som tak for dit forsøg på at hjælpe :-)

// Lukker

Apo