|
Страници по тази тема: 1 | 2 | 3 | 4 | (покажи всички)
Тема
|
send e-mail
|
|
Автор |
asentchernaev (непознат
) |
Публикувано | 05.09.03 23:44 |
|
please help!V momenta pravia sait na edna firma-http://www.vial.hit.bg-no zapitvaniata mi se obrabotvat i sahraniavat v brinkstera-ASP-kakto i da e,problema mi e kak da napravia scripta taka,ce stom zapitvaneto se zapise v bazata danni,da mi se izprasta e-mail da recem v yahooto-celta mi e da polucavam sms pri vsiako novo zapitvane-namerih koda na VB,no nesto ne moga da go priloza v moia script
| |
Тема
|
Re: send e-mail
[re: asentchernaev]
|
|
Автор | psy (Нерегистриран) |
Публикувано | 07.09.03 13:33 |
|
po princip tova se pravi s CDONTS(potarsi v msdn tam ima dosta primeri)
no v sluchaia ako hostinga na brinkster e general solution t.e. free tozi component ne se predlaga
triabva da si platish za da go polzvash na brinkster
az chestno kazano dosega neznam za free hosting koito da predlaga cdonts free
| |
|
mersi,ste go vidia,no hostinga e free...
| |
|
Poneve nqmam mnogo opit s Brinkster i kakwo pozwolqwa i kakwo ne, eto edin po alternatiwen wariant...
Namira6 priqtel koito ima hosting koito mu pozwolqwa da izpra6ta e-mail po nqkakyw na4in (perl, asp, php, cfm, ... kakywto i da e) i go moli6 za usluga...
Zna4i tozi priqtel ti slaga edno skript4e (primerno usluga.cgi) - tozi skript move da prieme kato parametri (FORM GET ili POST) primerno e-mail i tip zaqwka.
Kogato skripta se izwika, toi izpra6ta e-mail na podadeniq e-mail 4e tip X zaqwka e bila naprawena, sled koeto wry6ta kato output content-type=image/gif i sydyrvanieto na edin 1x1 prozra4en gif.
Na twoqta stranica si slaga6 ne6to kato
<% If IShouldSendEmail Then %>
<img src="myfriends.domain/path/usluga.cgi?email=<%=email%>&type=<%type%>" width=1 height=1>
<% End If %>
Po tozi na4in, ako kogato iska6 da izprati6 email, prosto slaga6 img tag 4iito src e skripta na server-a na twoq priqtel. Tozi skript ot swoq strana se grivi da izprati email i da wyrne kato rezultat prozra4en gif...
| |
|
blagodaria,tova bi bilo variant,ako imah takav priatel...no ne se sestam.Az si misleh ce moga da napisa script,koito da go pravi,kato izprasta saobstenieto kam SMTP server ot kom red...cel sam go niakade,no kade li...spommniam si samo ce se izvikvase netcat,na kogoto se podavase tekstov fail s podhodiastite SMTP komandi i danni kato vhod,a kato izhod 25 port na SMTP server,koito obace da pozvoliaval podobno izprastane-losoto e ce i poniatie si niamam ot SMTP komandi,MIMEi tn...mislia ce taka dori mogat da se prikacat failove,niakoi zapoznat li e pone kade moga da go proceta tova...
| |
|
<% If IShouldSendEmail Then %>
<img src="myfriends.domain/path/usluga.cgi?email=<%=email%>&type=<%type%>" width=1 height=1>
<% End If %>
И някой, като си е изключил графиката ...
<%
If IShouldSendEmail Then
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET" , "http://myfriends.domain/path/usluga.cgi?email="&email&"&type="&type&"&" , False
xml.Send
' Response.BinaryWrite xml.responseBody
Set xml = Nothing
End If
%>
Май е по-добро решение :)Редактирано от Mave_rick на 12.09.03 08:48.
| |
|
зора е да се сдобиеш с акаунт на НЯКОЙ СМТП сървър.
Тогава не ти трябва команден ред, може пак през АСП да викнеш отдалечения СМТП сървър да свърши работата по пощата !
UB40 !
| |
|
И как става това, че започна да ми става интересно :-?
| |
Тема
|
Мързи тееееееее !
[re: Mave_rick]
|
|
Автор |
jamie (Bad to the bone) |
Публикувано | 12.09.03 21:25 |
|
'Sending a text email using a remote server
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "me@my.com"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text."
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
--------------------------------------------------------------------------------
'Sending a text email using authentication against a remote SMTP server
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = """Me"" <me@my.com>"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."
'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
UB40 !
| |
|
Че след като прерових 1000 сайта, на които имаше само компоненти се отказах :)
Ама то това даже и работи :) 10x
| |
|
Страници по тази тема: 1 | 2 | 3 | 4 | (покажи всички)
|
|
|