Pessoal

Preciso enviar mensagens por e-mail  de um projeto em VB

Ocorre que achei um função legal... com os coletroles  MAPI e MAPIMessages

só que qdo envia... Pede permissão para enviar...  e eu queria evitar este dialogo.

 

Agradeço qq ajuda.

 

Abraço

JGD

 

Aí o codigo :

 

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

Amigo, ese problema só se resolve configurando no Próprio Outlook. Abra as opções, Vá na guia segurança e desmarque a opção "avisar quando outro aplicativo tentar enviar email como se fosse eu". Com isto as mensagens são enviadas diretamente sem pedir confirmação e única coisa que você vai ver é o progresso do envio que aparece sempre que enviamos um email.

 

Espero ter ajudado...

 

Valeu amigão !!!

 

Abraço