octaviomf

Instalei e configurei o uebimiau, só que ado vou abrir a conta de e-mail aparece este erro:

The folder " mp\uebimiau" do not exists or the webserver don't have permissions to write

onde crio esta pasta no servidor web?

Como faco para responder automaticamente uma mensagem pre-definida para o e-mail do usuario que enviou e-mail pelo site

Quero que qdo o usuario envia um e-mail pelo site receba automaticamente no e-mail que cadastrou uma mensagem de agradecimento (vou usar: de: meu-email(padrao), para: e-mail cadastrado, assunto: resposta de e-mail, corpo: Obrigado por entrar em contato. Em breve estaremos respondendo ).

Se alguem puder me ajudar, agradeco


cod. html (da pagina)

<form action="AspMailForm.asp" method="post" align="center">
<p align="center">
<input type="hidden" name="host" value="smtp.origemweb.com.br">
<input type="hidden" name="from" value="websuportes@websuportes.com.br">
<input type="hidden" name="fromname" value="Websuportes">
<input type="hidden" name="subject" value="Contato E-Mail">
<input type="hidden" name="address" value="websuportes@websuportes.com.br">
<input type="hidden" name="type" value="html">
<input type="hidden" name="redirect" value="Concluido.asp">
<input type="hidden" name="onerror" value="ErrorPage.asp">
<input type="hidden" name="ignorefields" value="">
<input type="hidden" name="sort" value="true">
<b><font face="Verdana" color="#000080" size="2"><br>
<font color="#000000" size="4"> </font></font></b>
<center>
<table width="313">
<tbody>
<tr>
<td width="60" height="24"><font color="#000000" face="Arial" size="2"><b>Nome:
</b></font></td>
<td><font color="#800000"><b>
<input maxLength="40" name="Nome" size="40">
</b></font> </td>
</tr>
<tr>
<td><font color="#000000" face="Arial" size="2"><b>E-Mail:</b></font>
<td width="171"><font color="#800000"><b>
<input maxLength="40" name="E_mail" size="40">
</b></font></td>
</tr>
<tr>
<td colspan="2"> <p align="center"><font color="#800000"><b><font face="Arial" size="2" color="#000000">Comentários:&nbsp;</font><font face="Arial" size="2" color="#800000">
<br>
<textarea cols="40" name="Observacao" rows="6"></textarea>
<br>
<br>
<input type="submit" value="Enviar dados">
<input type="reset" value="Limpar dados">
</font></b></font></td>
</tr>
</tbody>
</table>
</center>
<p align="left">
</form>

</body>

</html>




Este é o cod. asp - chamado pelo html

<%@ Language=VBScript%>
<%Option Explicit
Response.Buffer = True
%>
<!-- #Include file="VBScriptConstants.inc" -->
<%

Dim Formulario
Dim Contador1, Contador2

Dim Temp1, Temp2

Dim Method
Dim Tipo
Dim Host
Dim From
Dim FromName
Dim Subject
Dim Address
Dim Body
Dim RedirectPage
Dim OnErrorPage
Dim IgnoreFields
Dim InternalNames
Dim Sort

InternalNames = "host;from;fromname;subject;address;type;onerror;redirect;ignorefields;sort"

InternalNames = Split(InternalNames, ";", -1)

Function SortArray(ByVal vArrayName)

Dim Troca
Dim Contador1, Contador2

For Contador1 = 0 To UBound(vArrayName, 2)
For Contador2 = (Contador1 + 1) To UBound(vArrayName, 2)
If StrComp(vArrayName(0, Contador1), vArrayName(0, Contador2), 1) = 1 Then
Troca = vArrayName(0, Contador1)
vArrayName(0, Contador1) = vArrayName(0, Contador2)
vArrayName(0, Contador2) = Troca
Troca = vArrayName(1, Contador1)
vArrayName(1, Contador1) = vArrayName(1, Contador2)
vArrayName(1, Contador2) = Troca
Else
End If
Next
Next

SortArray = vArrayName

End Function

Sub RedirectError(ByVal vErrorMsg)
Dim Temp1

If OnErrorPage = "" Then
Response.Write vErrorMsg
Else
Response.Clear
Response.Redirect(OnErrorPage & "?ErrorMsg=" & Server.URLEncode(vErrorMsg))
End If
End Sub

Function GuardaCampos(ByRef vHost, ByRef vFrom, ByRef vFromName, ByRef vSubject, ByRef vAddress, ByRef vTipo, ByRef vRedirectPage, ByRef vOnErrorPage, ByRef vIgnoreFields, ByRef vMethod, ByRef vSort)

Dim Temp()
Dim Contador1
Dim X
Dim Ignore


vIgnoreFields = Split(Request.Form("ignorefields"), ";", -1)

Contador1 = 0

For Each X In Request.Form
Ignore = False

ReDim Preserve Temp(1, Contador1)

For Contador2 = 0 To UBound(InternalNames)
If UCase(X) = UCase(InternalNames(Contador2)) Then Ignore = True
Next

For Contador2 = 0 To UBound(vIgnoreFields)
If UCase(X) = UCase(vIgnoreFields(Contador2)) Then Ignore = True
Next

If Not(Ignore) Then
Temp(0, Contador1) = X
Temp(1, Contador1) = Request.Form(X)
Contador1 = Contador1 + 1
End If
Next

GuardaCampos = Temp

vMethod = "post"

vHost = Request.Form("host")
vFrom = Request.Form("from")
vFromName = Request.Form("fromname")
vSubject = Request.Form("subject")
vAddress = Request.Form("address")
vTipo = UCase(Request.Form("type"))
vRedirectPage = Request.Form("redirect")
vOnErrorPage = Request.Form("onerror")
vSort = UCase(Request.Form("sort"))

End Function

Sub EnviaEmail

Dim Mail

Formulario = GuardaCampos(Host, From, FromName, Subject, Address, Tipo, RedirectPage, OnErrorPage, IgnoreFields, Method, Sort)

If IsEmpty(Formulario) Then
RedirectError("Erro: N&atilde;o foi enviado nenhum dado para o servidor.")
End If


If IsEmpty(Host) Then
RedirectError("Erro: N&atilde;o foi especificado nenhum servidor de smtp.")
End If

If IsEmpty(From) Then
RedirectError("Erro: &Eacute; preciso especificar o endere&ccedil;o do remetente.")
End If

If IsEmpty(Address) Then
RedirectError("Erro: &Eacute; preciso especificar um endere&ccedil;o de destino.")
End If

If (Sort = "TRUE") Then Formulario = SortArray(Formulario)

On Error Resume Next

Set Mail = Server.CreateObject("Persits.MailSender")

If Err <> 0 Then
RedirectError("Para utilizar o AspForm, &eacute; necess&aacute;rio que o Aspemail® esteja instalado corretamente no servidor. Por favor verifique e tente novamente<BR>")
Else
End If

Mail.Host = Host
Mail.From = From
Mail.FromName = FromName
Mail.AddAddress(Address)
Mail.Subject = Subject

If Tipo = "HTML" Then
Mail.IsHTML = True
Body = Body & "<HTML><HEAD></HEAD><BODY><TABLE WIDTH=""100%"">"
For Contador1 = 0 To UBound(Formulario, 2)
Body = Body & "<TR><TD ALIGN=""left"" VALIGN=""top"" WIDTH=""20%""><B>"
Body = Body & Formulario(0, Contador1)
Body = Body & "</TD><TD ALIGN=""left"" VALIGN=""top"" WIDTH=""80%""></B>"
Body = Body & Formulario(1, Contador1)
Body = Body & "</TD></TR><TR><TD>&nbsp;</TD></TR>"
Next
Body = Body & "</TABLE></BODY></HTML>"
Else
For Contador1 = 0 To UBound(Formulario, 2)
Body = Body & Formulario(0, Contador1) & ": "
Body = Body & Formulario(1, Contador1) & vbCRLF & vbCRLF
Next
End If

Mail.Body = Body

On Error Resume Next

Mail.Send

If Err <> 0 Then
RedirectError("Erro ao submeter email: " & Err.Description)
Else
If RedirectPage = "" Then
Response.Write "Formul&aacute;rio enviado com sucesso!"
Else
Response.Redirect(RedirectPage & "?ErrorMsg=" & Server.URLEncode("Formul&aacute;rio enviado com sucesso!"))
End If
End If

End Sub
%>
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Microsoft FrontPage 4.0">
<TITLE>Processa Form</TITLE>
</HEAD>
<BODY>
<%EnviaEmail%>
</BODY>

</HTML>

Esta funcionando, muito bem.

Só que eu gostaria de acrescentar uma resposta automatica para quem envio e-mail pela web.

Ex: obrigada, por entrar em contato conosco. em breve estaremos dando um retorno.

como implementaria esse script neste código (utilizando a variavel e_mail do formulario?




<form action="AspMailForm.asp" method="post" align="center">
<p align="center">
<input type="hidden" name="host" value="smtp.origemweb.com.br">
<input type="hidden" name="from" value="websuportes@websuportes.com.br">
<input type="hidden" name="fromname" value="Websuportes">
<input type="hidden" name="subject" value="Contato E-Mail">
<input type="hidden" name="address" value="websuportes@websuportes.com.br">
<input type="hidden" name="type" value="html">
<input type="hidden" name="redirect" value="Concluido.asp">
<input type="hidden" name="onerror" value="ErrorPage.asp">
<input type="hidden" name="ignorefields" value="">
<input type="hidden" name="sort" value="true">
<b><font face="Verdana" color="#000080" size="2"><br>
<font color="#000000" size="4"> </font></font></b>
<center>
<table width="313">
<tbody>
<tr>
<td width="60" height="24"><font color="#000000" face="Arial" size="2"><b>Nome:
</b></font></td>
<td><font color="#800000"><b>
<input maxLength="40" name="Nome" size="40">
</b></font> </td>
</tr>
<tr>
<td><font color="#000000" face="Arial" size="2"><b>E-Mail:</b></font>
<td width="171"><font color="#800000"><b>
<input maxLength="40" name="E_mail" size="40">
</b></font></td>
</tr>
<tr>
<td colspan="2"> <p align="center"><font color="#800000"><b><font face="Arial" size="2" color="#000000">Comentários:&nbsp;</font><font face="Arial" size="2" color="#800000">
<br>
<textarea cols="40" name="Observacao" rows="6"></textarea>
<br>
<br>
<input type="submit" value="Enviar dados">
<input type="reset" value="Limpar dados">
</font></b></font></td>
</tr>
</tbody>
</table>
</center>
<p align="left">
</form>

</body>

</html>

Peguei a rotina de formmail com cdonts do tutoriais e funcionou bem

Só que eu gostaria quando o usuario enviasse o formulário, recebesse um e-mail automatico com algumas informaçoes pré-definidas.

Queria acrescentar esse script no formmail.

Enviar para o usuario um e-mail com uma mensagem: 'Seu e-mail foi rebebido em nossos servidores. Em breve entraremos em contato. Obrigado"

alguem poderia ajudar?

estou querendo implementar um webmail no meu site, (receber e enviar mensagens).

Alguem tem alguma indicação, onde posso baixar e como configurar?

Obrigado