ENVIAR EMAIL PELO VB?
Alguem teria um projeto para enviar email pelo vb, serve bem simples mas q funcione.
Desde já agradeço pela atenção.
Aristides Junior
Desde já agradeço pela atenção.
Aristides Junior
- Inicia um novo projeto no Visual Basic e altera a propriedade Name do form padrão para frmEmail.
-Referencie em seu projeto o controle MSMAPI32.OCX - Microsoft MAPI Controls 6.0 - Clicando na opção Project do menu do VB e selecionando a opção Components.
-Insira no formulário os seguintes objetos:
1. 4 objetos Labels (etiquetas- Veja o nome usado em cada uma no projeto abaixo)
2. 5 Objetos TextBox (Caixas de texto)
3. Dois objetos CommandButton (botões de Comandos)
4. Um objeto MAPISession e um objeto MAPIMessages
- A seguir apague o conteúdo da propriedade Text de cada TextBox (caixas de texto) e para a TextBox - Text5 - defina a propriedade Multiline como True e ScrollBars como Boths. O nome dado para cada caixa de texto é:
1. txtpara
2. txtsubject
3. txtusuario
4. txtsenha
5. txtmensagem
Insira o seguinte código no evento click do botão Enviar:
Private Sub Command1_Click()
On Error GoTo trata_erro
MAPISession1.UserName = txtusuario.Text
MAPISession1.Password = txtsenha.Text
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = txtsubject.Text
MAPIMessages1.RecipAddress = txtpara.Text
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.MsgSubject = txtsubject.Text
MAPIMessages1.MsgNoteText = txtmensagem.Text
MAPIMessages1.Send False
MAPISession1.SignOff
Exit Sub
trata_erro:
MsgBox "Erro " & Format$(Err.Number) & " ao enviar o e-mail" & vbCrLf & Err.Description
End Sub
Tente isto, para mim funcionou muito bem, não esquecer de referenciar as OCX. Boa sorte.
-Referencie em seu projeto o controle MSMAPI32.OCX - Microsoft MAPI Controls 6.0 - Clicando na opção Project do menu do VB e selecionando a opção Components.
-Insira no formulário os seguintes objetos:
1. 4 objetos Labels (etiquetas- Veja o nome usado em cada uma no projeto abaixo)
2. 5 Objetos TextBox (Caixas de texto)
3. Dois objetos CommandButton (botões de Comandos)
4. Um objeto MAPISession e um objeto MAPIMessages
- A seguir apague o conteúdo da propriedade Text de cada TextBox (caixas de texto) e para a TextBox - Text5 - defina a propriedade Multiline como True e ScrollBars como Boths. O nome dado para cada caixa de texto é:
1. txtpara
2. txtsubject
3. txtusuario
4. txtsenha
5. txtmensagem
Insira o seguinte código no evento click do botão Enviar:
Private Sub Command1_Click()
On Error GoTo trata_erro
MAPISession1.UserName = txtusuario.Text
MAPISession1.Password = txtsenha.Text
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = txtsubject.Text
MAPIMessages1.RecipAddress = txtpara.Text
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.MsgSubject = txtsubject.Text
MAPIMessages1.MsgNoteText = txtmensagem.Text
MAPIMessages1.Send False
MAPISession1.SignOff
Exit Sub
trata_erro:
MsgBox "Erro " & Format$(Err.Number) & " ao enviar o e-mail" & vbCrLf & Err.Description
End Sub
Tente isto, para mim funcionou muito bem, não esquecer de referenciar as OCX. Boa sorte.
tem que ter o outlook na máquina! se for fazer desta forma.
enviar e-mail com o VB direto sem passar por nenhum gerenciador de e-mail
e bem xatinho nunca consegui um projeto que realmente funcionace.
enviar e-mail com o VB direto sem passar por nenhum gerenciador de e-mail
e bem xatinho nunca consegui um projeto que realmente funcionace.
Tenta esse link aki SOEXE
http://www.freevbcode.com/ShowCode.Asp?ID=5796
http://www.freevbcode.com/ShowCode.Asp?ID=5796
Tópico encerrado , respostas não são mais permitidas