Problemer med ASPmail

Har du log ind på din side?

tjae... har du en kollonne i din database som fx. hedder "Mail"?
- i så fald er det vel bare sådan her:
<%
strSQL = "Select * From Users Where Admin = 'Superadmin'"
Set rs = Conn.Execute(strSQL)
Do
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "blabla"
  Mailer.FromAddress= rs("Mail")
  Mailer.RemoteHost = "smtp.unoeuro.com"
  Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
  Mailer.Subject    = Request.Form ("subject")
  Mailer.BodyText  = "Hej" & " " & rs("FirstName") & " " & rs("LastName") & vbcrlf & vbcrlf & Request.Form ("message") & vbcrlf & vbcrlf & vbcrlf & vbcrlf & "Du er tilmeldt Blabla's nyhedsbrev. Hvis dette er en fejl eller du ikke vil modtage nyheder fra os mere, skal du blot bruge dette link : " & "http://www.blabla.dk/ADMIN/del_mail.asp?email=" & rs("Mail")
%>

- eller hvad er det du mener der skal laves om - og hvordan?

\Dan

Ok - læste ikke helt spørgsmålet. Men du kan vel bare når du en bruger logger ind så gemme vedkommendens mail i en session?

Mail script:

<%
strSQL = "Select * From Users Where Admin = 'Superadmin'"
Set rs = Conn.Execute(strSQL)
Do
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "blabla"
  Mailer.FromAddress= session("mail")
  Mailer.RemoteHost = "smtp.unoeuro.com"
  Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
  Mailer.Subject    = Request.Form ("subject")
  Mailer.BodyText  = "Hej" & " " & rs("FirstName") & " " & rs("LastName") & vbcrlf & vbcrlf & Request.Form ("message") & vbcrlf & vbcrlf & vbcrlf & vbcrlf & "Du er tilmeldt Blabla's nyhedsbrev. Hvis dette er en fejl eller du ikke vil modtage nyheder fra os mere, skal du blot bruge dette link : " & "http://www.blabla.dk/ADMIN/del_mail.asp?email=" & rs("Mail")
%>

Dan -> Jeg har prøvet at bruge rs("Mail") som afsender adresse. Men når mailen bliver sendt ud er det brugerens egen adresse der bliver vist som afsender.
Det jeg mener er nok noget lignende "madeindk" skriver. Det er nemlig brugeren, der er logget ind's adresse der skal bruges som afsender. Men hvordan gemmer jeg vedkommendens mail i en session? Man logger jo på med et brugernavn og ikke en mail adresse...

Prøv at smid delen af dit log ind scriptet, hvor du gemmer brugernavnet i en session.

OK! Jeg ville ikke anbefale at gemme brugerens mail-adresse i en session... Men når man logger ind bliver der formentligt oprettet et session("id") eller lignende... og på den måde kan vi finde brugerens mail i databasen også...
noget a la det her:
<%
set mail = Conn.execute("select * from Users where id=" & session("id") & "")
afsender_mail = mail("Mail")
mail.close
set mail=nothing
strSQL = "Select * From Users Where Admin = 'Superadmin'"
Set rs = Conn.Execute(strSQL)
Do
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "blabla"
  Mailer.FromAddress= afsender_mail
  Mailer.RemoteHost = "smtp.unoeuro.com"
  Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
  Mailer.Subject    = Request.Form ("subject")
  Mailer.BodyText  = "Hej" & " " & rs("FirstName") & " " & rs("LastName") & vbcrlf & vbcrlf & Request.Form ("message") & vbcrlf & vbcrlf & vbcrlf & vbcrlf & "Du er tilmeldt Blabla's nyhedsbrev. Hvis dette er en fejl eller du ikke vil modtage nyheder fra os mere, skal du blot bruge dette link : " & "http://www.blabla.dk/ADMIN/del_mail.asp?email=" & rs("Mail")
%>

- der er måske nogle ting der skal ændres omkring dette databaseopslag... måske din eksisterende session("id") eller også den tabel vi skal slå det op i...

\Dan

Ok. Mit script ser lige nu sådan ud ->

<%
Server.ScriptTimeOut = 30
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/login.mdb")
Conn.Open DSN
set mail = Conn.execute("select * from Users where UserID=" & session("UserID") & "")
afsender_mail = mail("Mail")
mail.close
set mail=nothing
strSQL = "select * FROM Users where Mail='" & Request.Form("Check") & "'"

Set rs = Conn.Execute(strSQL)
Do
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "BlaBla"
  Mailer.FromAddress = afsender_mail

Problemet er nu at afsender mailen er den sammen som modtager mailen...

- OK! Hvad har du så i din addreciepient?
- og er det din modtagermail eller din afsendermail som er den korrekte adresse i den korrekte situation?

\Dan

Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")

Det er modtagermailen der er korrekt.

hmm... OK!

Hvordan er det så at din afsendermail skal slåes op?
Hvor skal vi finde den henne?

\Dan

Afsendermailen er mailen på den person der er logget ind. Den mail er gemt i en database. (login.mdb)

- ok og i

OK! Og i hvilken tabel i databasen er den gemt? Er det i "Users"?
- hvis det er i "Users" og at id´en på den bruger som er logget ind indeholder din session("UserID") så er det nød til at skulle være sådan her:

set mail = Conn.execute("select * from Users where UserID=" & session("UserID") & "")
afsender_mail = mail("Mail")
mail.close
set mail=nothing

- og så skal du sætte Mailer.FromAddress til afsender_mail

\Dan

Ved ikke lige hvad der er gået galt... Det script jeg skrev d. 22/06-2006 18:49:17 virker fint. Så tak for hjælpen Dan. ;-)
Smid et svar og tjek eventuelt mit næste spørgsmål som omhandler det samme script.

http://www.eksperten.dk/spm/717849

hmm... OK!

- her et svar så...

\Dan