Como configurar e-mail com vb06

[alissong 1]

Pessoal,

 

Baixei o arquivo PySendMail123 para enviar dados com Visual Basic 06, mas não estou sabendo configurá-lo. Veja o exemplo em vb que existe no arquivo.

 

Private Sub cmdAnexo_Click() On Error Resume Next

CDlg.Filter = "Todos os Arquivos|*.*"

CDlg.ShowOpen

If Err.Number = 0 Then 'Não Cancelou

lstAnexos.AddItem CDlg.FileName

End If

On Error GoTo 0

End Sub

 

 

Private Sub cmdEnviar_Click()

 

Set k = CreateObject("Py.SendMail")

 

k.SMTPServer = txtServidor.Text

k.To = txtPara.Text

k.From = txtDe.Text

k.Subject = txtAssunto.Text

k.Body = txtMensagem.Text

k.PureText = chkTextoPuro.Value

'Em caso de autenticação

k.User = "usuário (em geral é o próprio e-mail)"

k.Password = "senha"

 

For i = 0 To lstAnexos.ListCount - 1

k.AttachFile lstAnexos.List(i)

Next i

 

For i = 0 To lstImagens.ListCount - 1

k.InsertImage lstImagens.List(i)

Next i

 

retorno = k.Send()

lblRetorno = "Retorno: " & retorno

End Sub

 

Private Sub cmdImagens_Click()

On Error Resume Next

CDlg.Filter = "Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg"

CDlg.ShowOpen

If Err.Number = 0 Then 'Não Cancelou

lstImagens.AddItem CDlg.FileName

 

txtMensagem.Text = txtMensagem.Text & "<img src=" & Chr(34) & "cid:" & lstImagens.ListCount - 1 & Chr(34) & " />"

End If

On Error GoTo 0

End Sub

 

Alterei essas linhas: Veja exemplo

 

Na linha de comando K.User = "ags@arq.ufmg.br"

Na linha de comando K.Password ="senha" do e-mail

No campo txtservidor = arq.ufmg.br

No retorno exibe esse erro:

Retorno: SMTP AUTH extension not supported by server.

Se assim,

No campo txtservidor = @arq.ufmg.br

Retorno: ('7,getaddrinfo failed').

 

Como faço para resolver isso ?

[Dennys Lopes 0]

Voce ja ouviu falar na CDOSYS.dll ???É como se fosse a CDONTS.dll mais usada em ASP só que melhor para VB .... O bom é que ela é da Microsoft ... e voce ja deve ter ai no seu micro ... e é bem mais facil de usar ..... Eu recomendo !

[alissong 1]

Não,Mas seria igual ao exemplo anterior. É isso.Um abraço.

[Dennys Lopes 0]

Hum ... isso foi uma pergunta ????Bom ... se foi usando a CDOSYS.dll voce acha tudo sobre ela no site da Microsoft (MSDN) ... e tambem em sites tipo Macoratti, PlanetSourceCode .........Ai vai de voce querer usar ou não ...... é que nunca usei a PySendMail123, por isso nao posso afirmar se é melhor ou nao ....