|
|
Postada em 18/08/2005 13:15 hs
E então, Luciano, o exemplo de solução funcionou? 
[ ]'s -----------------------------------------------------------------------------------------------------------------  Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
|
|
|
|
Luciano Lazo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 14:03 hs
Ainda não testei, mas aparentemente isso resolverá meu problema sim... Assim que testar eu posto o resultado, OK?
Obrigado!!!
[]s
|
|
|
|
Luciano Lazo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 15:24 hs
Fiz o teste mas o erro persiste.
Dê uma olhada na função modificada:
Private Function fnc_EnviarEMails() As Boolean
Dim fsoArq As New FileSystemObject
Dim txtsEndereco As TextStream
Dim varArquivo As Variant
Dim strMailling As String, strEndereco As String
Dim lngCounter As Long
mapiSessionMailler.UserName = Trim(txtUsuario.Text)
mapiSessionMailler.Password = Trim(txtSenha.Text)
mapiSessionMailler.SignOn
mapiMSGMailler.SessionID = mapiSessionMailler.SessionID
mapiMSGMailler.Compose
mapiMSGMailler.AddressResolveUI = False
mapiMSGMailler.MsgSubject = txtAssunto.Text
mapiMSGMailler.MsgNoteText = rtxtMensagem.Text
Set txtsEndereco = fsoArq.OpenTextFile(txtArqEnderecos.Text, ForReading)
lngCounter = 0
With txtsEndereco
Do While .AtEndOfStream = False
strEndereco = .ReadLine
If strEndereco <>
|
|
|
|
|
|
Postada em 18/08/2005 15:26 hs
If strEndereco <> "" Then
mapiMSGMailler.RecipIndex = lngCounter
mapiMSGMailler.RecipType = 1
mapiMSGMailler.RecipAddress = strEndereco
mapiMSGMailler.ResolveName
End If
lngCounter = lngCounter + 1
Loop
End With
mapiMSGMailler.Send False
mapiSessionMailler.SignOff
txtsEndereco.Close
Set txtsEndereco = Nothing
Set fsoArq = Nothing
End Function
Mesmo com essa modificação o erro continua aparecendo.
|
|
|
|
Mr.Data
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 16:29 hs
Agora então deu uma "pequena" complicada. Eu puxei prá minha máquina, coloquei 3 endereços meus de e-mail num arquivinho TXT (um por linha), e coloquei o sistema para rodar. Aliás, usei os mesmos nomes de controle, tudo bonitinho. Pelo que percebi o "r" na frente do "txt" na caixa de mensagem, deduzi ser um RichTextBox e até isso eu reproduzi. Tirando o fato de que a cada "ResolveName" meu Outlook fica perguntando se pode responder, bem como na hora de enviar, de resto, passou pelo Send, não deu erro, chequei minhas caixas de e-mail, e ele está lá. O erro continua a ser na linha Send?
[ ]'s ----------------------------------------------------------------------------------------------------------------- Juliano Lopes - Coordenador de Projetos / Arquiteto de Software
|
|
|
|
|
|
Postada em 18/08/2005 16:44 hs
Exato...
Muito estranho isso.
Será que é alguma configuração no servidor de e-mails da empresa?
Vou testar em casa e ver no que dá.
Obrigado.
|
|
TÓPICO EDITADO
|
|
|
|
