Enviar Email via browser

[Faccruz 0]

Boa tarde...

 

Como faço para enviar um email diretamente pelo Browser, sem a necessidade de chamar o programa de Email padrão?

 

E mais, gostaria de enviar os dados que irei trazer através de um SQL e jogar em um arquivo PDF e após anexar. Tudo isso automaticamente, sem a necessidade de nenhuma intervenção do usuário, a não ser dar um clique no botão para enviar.

 

É possivel? Ou me sugerem outras formas?

 

 

Framework 2.0 - MySQL - VB.NET

[quintelab 91]

De uma olhada neste artigo: http://www.linhadecodigo.com.br/Artigo.aspx?id=40

 

Abraços...

[RicardoCarvalho 0]

Boa tarde...

 

Como faço para enviar um email diretamente pelo Browser, sem a necessidade de chamar o programa de Email padrão?

 

E mais, gostaria de enviar os dados que irei trazer através de um SQL e jogar em um arquivo PDF e após anexar. Tudo isso automaticamente, sem a necessidade de nenhuma intervenção do usuário, a não ser dar um clique no botão para enviar.

 

É possivel? Ou me sugerem outras formas?

 

 

Framework 2.0 - MySQL - VB.NET

 

Pegue esse codigo abaixo, e coloque ele dentro de uma Classe.vb...

Tipo... Class1.vb

 

Renomeie o Class1.vb para Email.vb

 

dai na sua página.... você vai no topo e digita:

 

dim meuEmail as Email.Produto

 

dai você faz o seguinte...

 

meuEmail.Assunto = "assunto do email"

 

meuEmail.conteudo += "Primeira Linha"

meuEmail.conteudo += "Segunda LInha"

 

meuEmail.envia

 

 

você pode melhorar bastante essa classe... colocando métodos para formatar o e-mail.... ( coisa que não coloquei ainda )

 

lá dentro... eu tenho uma função que pega dados do mysql

 

 

Imports Microsoft.VisualBasic
Imports MySql.Data.MySqlClient
Imports System.Net.Mail

Namespace Email

	Public Class Produto

		Private sPara As String = ""
		Private sDe As String = ""
		Private sAssunto As String = ""
		Private sConteudo As String = ""
		Private sObs As String = ""
		Private sProduto As String = ""
		Private sCC As String = ""
		Private sCCO As String = ""
		Private sNome As String = ""
		''' <summary>
		''' Pegue ou Sete o valor para o Destinatário
		''' Insira o nome do destinatário da seguinte forma: 'Ricardo' e entre tags o e-mail"
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property Destinatario() As String
			Get
				Return sPara
			End Get
			Set(ByVal value As String)
				sPara = value
			End Set
		End Property
		''' <summary>
		''' Pegue ou Sete o valor para Assunto
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property Assunto() As String
			Get
				Return sAssunto
			End Get
			Set(ByVal value As String)
				sAssunto = value
			End Set
		End Property
		''' <summary>
		''' Pegue ou sete o valor Conteúdo, aquele texto... que é o corpo do Email... ( automaticamente é dado uma quebra de linha apos o conteudo )
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property Conteudo() As String
			Get
				Return sConteudo
			End Get
			Set(ByVal value As String)
				sConteudo = value & "<br />"
			End Set
		End Property

		Public Property Numero_Produto() As Integer
			Get
			End Get
			Set(ByVal value As Integer)
				sProduto = value
			End Set
		End Property


		''' <summary>
		''' Pegue ou sete o valor para DE
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property De() As String
			Get
				Return sDe
			End Get
			Set(ByVal value As String)
				sDe = value
			End Set
		End Property
		''' <summary>
		''' Pegue ou sete o valor para Observação
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property Obs() As String
			Get
				Return sObs
			End Get
			Set(ByVal value As String)
				sObs = value
			End Set
		End Property
		''' <summary>
		''' Digite um Nome e E-mail para alguém receber uma Cópia do e-mail
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property CC() As String
			Get
				Return sCC
			End Get
			Set(ByVal value As String)
				sCC = value
			End Set
		End Property
		''' <summary>
		''' Digite o Nome e E-mail de alguém para essa pessoa receber uma Cópia Oculta e as demais não saber que esta pessoa recebeu este e-mail.
		''' </summary>
		''' <value></value>
		''' <returns></returns>
		''' <remarks></remarks>
		Public Property CCo() As String
			Get
				Return sCCO
			End Get
			Set(ByVal value As String)
				sCCO = value
			End Set
		End Property

		Public Property Nome() As String
			Get
				Return sNome
			End Get
			Set(ByVal value As String)
				sNome = value
			End Set
		End Property

		''' <summary>
		''' Envia o e-mail, não esqueça de atribuir os valores ao e-mail se não o mesmo será enviado vazio
		''' </summary>
		''' <remarks></remarks>
		Public Function Envia() As String
			Try
				Dim mail As New MailMessage
				Dim smtp As New System.Net.Mail.SmtpClient

				mail.To.Add(New MailAddress(sPara))
				mail.From = New MailAddress(sDe, sNome)

				If sCC <> "" Then
					mail.CC.Add(New MailAddress(sCC))
				End If
				If sCCO <> "" Then
					mail.Bcc.Add(New MailAddress(sCCO))
				End If
				mail.Body = sConteudo
				If sProduto <> "" Then
					mail.Body += "<font face='Verdana' size=2><strong>Produto de interesse:</strong>" & sProduto & "</face>"
				End If

				mail.Subject = sAssunto
				mail.IsBodyHtml = True

				smtp.Send(mail)
				Return ""
			Catch ex As Exception
				Return ex.Message.ToString
			End Try

		End Function

		Public Function Valida_Email(ByVal Email As String) As Boolean
			If InStr(Email, "@") = 0 Then Return False
			If InStr(Email, "*") > 0 Then Return False
			If InStr(Email, "%") > 0 Then Return False
			If InStr(Email, "#") > 0 Then Return False
			If InStr(Email, "'") > 0 Then Return False
			Dim pos As Integer = InStr(Email, "@")
			If InStr(Email.Substring(pos), ".") = 0 Or (InStr(Email.Substring(pos), ".") > 1 And InStr(Email.Substring(pos), ".") < 3) Then Return False
			If pos = 0 Then Return False
			Return True

		End Function

		''' <summary>
		''' Apenas vai retornar o Nome do produto quando passado o Id do produto, e vai armazenar na propriedade da classe
		''' </summary>
		''' <param name="id"></param>
		''' <returns></returns>
		''' <remarks></remarks>
		Private Function Produto(ByVal id As Integer) As String
			Dim xDados As New clBanco.stuProduto
			Dim xBanco As New clBanco

			xDados = xBanco.Carrega_Produtos(id)

			Return xDados.Titulo

		End Function



	End Class


End Namespace

 

 

 

para gerar o pdf... dai você vai ter que suar... pq eu não lembro a rotina

 

mais uma coisa....

 

com a classe que eu te mandei... você precisa criar a autenticação.... para isso no web.config... coloque o seguinte...

 

 

<system.net>
		<mailSettings>
			<smtp>
				<network
					 host="smtps.uol.com.br"
					 port="25"
					 userName="usuario@uol.com.br"
					 password="sua_senha_de_email" />
			</smtp>
		</mailSettings>
	</system.net>

 

 

esse trecho fica dentro do <CONFIGURATION> e antes do <system.web>

[Faccruz 0]

RicardoCarvalho

 

Valeu pela classe.

 

Agora só falta gerar um arquivo PDF/Excel e anexar ao email

[Oenning 0]

Para anexar, aqui tem um exemplo: http://www.systemwebmail.com/faq/2.3.aspx