Problem so e-mail skripta

Problem so e-mail skripta

offline
  • Pridružio: 30 Sep 2006
  • Poruke: 137

Sub Button1_Click(sender As Object, e As EventArgs)
Label1.Text = SendMail("Feedback form", TextBox1.Text, TextBox2.Text)
End Sub
Function SendMail(Subject As String, FromAddress As String, _
Message As String) As String
Dim mailMessage As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
mailMessage.From = someone@example.com"
mailMessage.To = "someone@example.com"
mailMessage.Subject = "Email Subject"
mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text
mailMessage.Body = Message
System.Web.Mail.SmtpMail.SmtpServer = "localhost"
System.Web.Mail.SmtpMail.Send(mailMessage)
SendMail = "Your message was sent to " & mailMessage.To
End Function

---------------------------------------------------------------------------------------------------
ne ja svakam skriptava, odnosno del od kodot, sta treba da napisem kod SMPTserver, kako mogu doznati koj e moj SMPT server??
HELP



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • srlle 
  • Novi MyCity građanin
  • Pridružio: 19 Mar 2007
  • Poruke: 27

hehe,
pa jel imas uopste email account u okvritu web hostinga na kome hostujes sajt , ako imas account da li ti taj account dozvoljava da saljes mailove sa stranica sajta , pogledaj help kod kompanije kod koje hostujes ili bar napisi kod koga hostujes sajt pa da vidimo dal neko zna gde ti pise smtp server alias kod te kompanije.



offline
  • stans 
  • Novi MyCity građanin
  • Pridružio: 30 Sep 2007
  • Poruke: 1

Moj sajt je na Beotelu. AKo posetilac zaboravi paswword treba na odgovarajucoj formi da upise e-mail adresu sa kojom se je registroavao i da klikom na Submit dobije odgovor na tu adresu.
Kod u ASP-u koji sam nasao na <a href = "http://www.w3schools.com">http://www.w3schools.com</a> je sledeci:
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="VAS PASSWORD"
myMail.From="xxxx@xxx.com"
myMail.To="strEmail"
myMail.TextBody="Ovo je Vas password: " & strPassword
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="luke.beotel.net"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
Ispod sam dao kako sam ga "uklopio" u odgovrajucu asp stranicu.
Kao rezultat, na browseru dobijem tacan odgovor kako je i navedeno u komentaru na liniji:'***** OBRATI PAZNJU NA OVO
Ali na e-mail adresu ne dobijam odgovor.
U cemu je problem?
Ako neko zna - neka mi pomogne

Ovo ispod je kompletan kod za asp stranicu: nadjiPaswword.asp

<%
DIM strEmail, objConn, mySQL, objRS
strEmail = Request.Form("Email")

IF strEmail <> "" THEN

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mojabaza.mdb")

mySQL = "SELECT Email,Password FROM nazivTabele WHERE Email = '" & strEmail & "'"
Set objRS = objConn.execute(mySQL)

IF objRS.EOF THEN
Response.Write "Ova email adresa nije pronadjena u nasoj bazi podataka. Molimo kliknite na strelicu Back na Vasem browseru i upisite adresu s kojom ste se registrovali."
ELSE
DIM strPassword
strPassword = objRS("Password")


Set myMail=CreateObject("CDO.Message")
myMail.Subject="VAS PASSWORD"
myMail.From="xxxx@xxx.com"
myMail.To="strEmail"
myMail.TextBody="Ovo je Vas password: " & strPassword
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="luke.beotel.net"
'Server port
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

Response.Write "Vas password je: " & strPassword '***** OBRATI PAZNJU NA OVO
END IF

ELSE
Response.Write "Molimo kliknite na strelicu Back na Vasem browseru i upisite adresu s kojom ste se registrovali."


objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
END IF
%>

offline
  • Pridružio: 05 Nov 2007
  • Poruke: 3
  • Gde živiš: Cacak

zar to nije phishing Very Happy

Ko je trenutno na forumu
 

Ukupno su 789 korisnika na forumu :: 53 registrovanih, 5 sakrivenih i 731 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aramis s, ArmyBoss, Atenjanin89, Boris90, Bubili, Cobi026, crnitrn, cvrle312, darios, darkstar101, Dejan84, dejoglina, Deneb, Despot1, dragoljub11987, DucicM, francis begbie, goflja76, havoc995, Helket, ivan979, kairos, kokodakalo, Kristian_KG, krkalon, krlebgd77, Kruger, ljuba, maiden6657, Milos ZA, nemkea71, NoOneEver Dreams, operniki, Panter, prashinar, Recce, Rocker, royst33, ruso, sakota79, Sale.S, shaja1, sickmouse, Skakac7, solic, t84dar, time, trajkoni018, Van, vsn111, VucoCar, 1107