Help
Pessoal,
Estou precisando fazer um form email, pode ser em HTML, PHP... mas que, utilize uma combo box para quando for selecionado o nome de uma determinada pessoa, o form email mande o email para essa pessoa que foi escolhida além dos campos normais. Seria algo simples com 4, 5 campos de preenchimento no máximo. Vcs têm algo ai pra me ajudar ? algum pronto ou um tuto para que eu faça aqui?
abraços
Publicidade
|
|
Page 1 of 1
Formulário de email com combobox!
#3
marcusmarinho 
- Group: Membros
- Posts: 105
- Joined: 05-October 06
Posted 09 March 2010 - 11:50 PM
Beleza... mas como ? rsrs
Têm algum tuto ai ?
Têm algum tuto ai ?
#4
xanburzum
- Group: Administrador
- Posts: 2076
- Joined: 04-November 08
Posted 10 March 2010 - 12:12 PM
1- Cria um formulário com um dropdown (combobox), você pode até ter um combobox , preenchido (populado) por banco de dados
após preencher o user irá selecionar, e dar um enviar, nesta outra página você recupera o ListBox
email=request.form("ListBox")
CÓDIGO
<HTML>
<BODY>
<BR>This is an HTML ListBox<BR>
<SELECT NAME="ListBox" SIZE=1>
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "DSN=AdvWorks" ' connect to the database %>
<% Set rs = conn.Execute("SELECT City FROM Customers") %>
<% Do While Not rs.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= rs("City") %>"> <%= rs("City") %>
<% rs.MoveNext %>
<% Loop %>
<% rs.Close %>
<% conn.Close %>
</SELECT>
</BODY>
</HTML>
<BODY>
<BR>This is an HTML ListBox<BR>
<SELECT NAME="ListBox" SIZE=1>
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "DSN=AdvWorks" ' connect to the database %>
<% Set rs = conn.Execute("SELECT City FROM Customers") %>
<% Do While Not rs.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= rs("City") %>"> <%= rs("City") %>
<% rs.MoveNext %>
<% Loop %>
<% rs.Close %>
<% conn.Close %>
</SELECT>
</BODY>
</HTML>
após preencher o user irá selecionar, e dar um enviar, nesta outra página você recupera o ListBox
email=request.form("ListBox")
CÓDIGO
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
' email é a variavel que recebeu o email selecionado do listbox
ObjSendMail.To = email
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "someone@someone.net"
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
Set ObjSendMail.Configuration = iConf
' email é a variavel que recebeu o email selecionado do listbox
ObjSendMail.To = email
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "someone@someone.net"
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
#5
marcusmarinho
- Group: Membros
- Posts: 105
- Joined: 05-October 06
Posted 11 March 2010 - 08:43 PM
Valeu cara.... estou tentando várias opções aqui...
Estarei vendo essa...
valeu mesmo !
Estarei vendo essa...
valeu mesmo !
#7
marcusmarinho
- Group: Membros
- Posts: 105
- Joined: 05-October 06
Posted 24 March 2010 - 11:08 PM
Valeu e obrigado pelas ajudas.. consegui resolver o problema.
Share this topic:
Page 1 of 1
Similar Topics
| Topic | Forum | Started By | Stats | Last Post Info | |
|---|---|---|---|---|---|
|
MTV vai vender álbuns completos para game Rock Band
|
Notícias |
Notícias
|
|
|
|
|
Ajuda com Flash e AIR
|
Flash & ActionScript |
rockplay
|
|
|
|
|
Amazon recompensa clientes por falha em sistema de hospedagem
|
Notícias |
Notícias
|
|
|
|
|
Palavras como Button
só no contorno das letras ?? |
Flash & ActionScript |
dimarcinho
|
|
|
|
|
Flickr faz parceria com Pinterest para compartilhamento de imagens
|
Notícias |
Notícias
|
|
|
|
|
Game - Inseto come Moscas
|
Tutoriais e Artigos |
Tygra
|
|
|
|
|
Cavalo-de-tróia usa o nome da Americanas.com
Info Online |
Notícias |
TiTi Celestino
|
|
|
|
|
Mark Zuckerberg é como Che Guevara, diz autor de "O Efeito Facebook"
|
Notícias |
Notícias
|
|
Publicidade
|
|