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 1135 korisnika na forumu :: 37 registrovanih, 9 sakrivenih i 1089 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: Bobrock1, BORUTUS, Brana01, CikaKURE, dankisha, dijica, Dimitrije Paunovic, DPera, dragoljub11987, Georgius, herrDule, ILGromovnik, Karla, kuntalo, ladro, Leonov, lord sir giga, Magistar78, mercedesamg, milenko crazy north, milutin134, oldtimer, Parker, royst33, sabros, Smajser, srbijaiznadsvega, Steeeefan, stegonosa, Sumadija34, vathra, vlad the impaler, vladulns, voja64, Volkhov-M, YugoSlav, zzapNDjuric99