|
|
Postada em 27/08/2004 18:29 hs
Olá pessoal, estou com um sério problema em enviar e-mail pelo MAPI Eu já fui em vários sites e principalmente procurei aqui no VBWEB como enviar e-mail pelo MAPI, eu encontrei, mas nenhum deles funcionaram, não sei se estou fazendo certo ou se colocaram o código errado, peço a todos que possam me ajudar o mais rápido possivel. Atenciosamente, Marcus Vinícius Se quiser entrar em contato comigo me envie um e-mail para Msmarcus@hotmail.com
______________________________
Resolveu ? Tópico Trancado!
|
|
|
|
|
|
Jonas
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2004 09:51 hs
Dim sEndEmail As String
sEndEmail = InputBox("Informe o endereço do destinatário !")
If Trim(sEndEmail) = "" Then Exit Sub
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipIndex = 0 'Destinatario 1
MAPIMessages1.RecipAddress = sEndEmail 'Endereço.Text 'endereco 1
MAPIMessages1.MsgSubject = "Relatório de Conhecimentos Emitidos" 'Assunto.Text"
MAPIMessages1.MsgNoteText = "Mensagem enviada pelo Sistema Twms" 'Mensagem.Text
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = "c:ArquivosCtrcClientes.txt" 'AnexoPath
MAPIMessages1.Send
MAPISession1.SignOff MsgBox "Arquivo gerado e enviado com sucesso !" & Chr(13) & _
"Verifique seu e-mail !", vbInformation Té mais |
|
|
|
|
|
Postada em 28/08/2004 12:37 hs
Não está funcionando não está dando erro no SignOn Ocorre um erro de Script, não entendi nada
Dim sEndEmail As String
sEndEmail = InputBox("Informe o endereço do destinatário !")
If Trim(sEndEmail) = "" Then Exit Sub
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipIndex = 0 'Destinatario 1
MAPIMessages1.RecipAddress = sEndEmail 'Endereço.Text 'endereco 1
MAPIMessages1.MsgSubject = "Relatório de Conhecimentos Emitidos" 'Assunto.Text"
MAPIMessages1.MsgNoteText = "Mensagem enviada pelo Sistema Twms" 'Mensagem.Text
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = "c:ArquivosCtrcClientes.txt" 'AnexoPath
MAPIMessages1.Send
MAPISession1.SignOff
MsgBox "Arquivo gerado e enviado com sucesso !" & Chr(13) & _
"Verifique seu e-mail !", vbInformation
Se por acaso alguem poder me ajudar eu agradeço
Atenciosamente,
Marcus Vinícius
______________________________
Resolveu ? Tópico Trancado!
|
|
|
|
Jonas
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2004 23:00 hs
Esqueci de verificar: tem que inserir os controles MapiMessages e o MapiSession Se continuar o erro, pode dizer qual erro ? Té mais |
|
|
|
Msmarcus_RJ
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/08/2004 23:58 hs
Olha.... eu já inseri o CONTROLE desde que você passou o código
O problema é . . . . .
Eu realmente eu não sei ( O TIPO DO ERRO é RUN-TIME do numero é '48389' )
Este MAPI requer de alguma coisa ? ( OUTLOOK ? ALGUM SERVIDOR ) ?
Estou meio confuso . . . . .
espero que possa me ajudar,
Até mais,
Assinado: Marcus Viníciu |
|
|
|
|
|
Postada em 30/08/2004 23:00 hs
O problema já foi resolvido por mim mesmo.
O problema foi o seguinte:
O MAPI na hora de fazer o SignON
ele requer o OUTLOOK
E o OUTLOOK no meu PC não existe eu não gosto de usar.
. . . Eu agora estou usando o modo de envio de mensagens SMTP que é bem melhor e menos confuso e complexo.
Jonas, brigadão por tentar me ajudar.
Atenciosamente,
Marcus Vinícius
Se quiser entrar em contato comigo me envie um e-mail para Msmarcus@hotmail.comQue em breve estarei entrando em contato com você.
______________________________
Resolveu ? Tópico Trancado!
|
|
TÓPICO EDITADO
|
|
|
|
