PARA QUEM TIVER ERRO AO ENVIAR XML E PDF 32002
Olá
Quebrei a cabeça essa madrugada com um problema
Meu cliente usa o VB, no WINDOWS XP, OUTLOOK EXPRESS
Tudo funcionava normal
Ai formatou e o mesmo VB, sobre o WINDOWS 7, MS OUTLOOK, começou dar erro 32002 para enviar
Alterei algumas coisas no sistema e agora envia, tanto no XP, como Windows 7, WINDOWS LIVE MAIL, OUTLOOK EXPRESS, E MS-OUTLOOK
Para quem tiver o mesmo problema, segue anexo a rotina que uso e ficou tudo ok e a imagem com o resultado
Quebrei a cabeça essa madrugada com um problema
Meu cliente usa o VB, no WINDOWS XP, OUTLOOK EXPRESS
Tudo funcionava normal
Ai formatou e o mesmo VB, sobre o WINDOWS 7, MS OUTLOOK, começou dar erro 32002 para enviar
Alterei algumas coisas no sistema e agora envia, tanto no XP, como Windows 7, WINDOWS LIVE MAIL, OUTLOOK EXPRESS, E MS-OUTLOOK
Para quem tiver o mesmo problema, segue anexo a rotina que uso e ficou tudo ok e a imagem com o resultado
[ô] Abre a Conexão com o Servidor de msg
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
[ô] Define endereço de email
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipDisplayName = Trim(txtPara.Text) [ô] AQUI DEIXE RecipDisplayName, SE FOR DE OUTRA FORMA DA ERRO
MAPIMessages1.RecipType = 1
[ô] Assunto do email (no caso o pdf e xml da nfe em questão)
MAPIMessages1.MsgSubject = txtAssunto.Text
[ô] Corpo do email (no caso o pdf e xml da nfe em questão, mais bom dia, boa tarde, etc...)
MAPIMessages1.MsgNoteText = txtObservações.Text
[ô] Anexo (XML DA NFE)
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = txtAnexo.Text [ô] meu cliente salva como NFE 3909 - XML.XML
MAPIMessages1.AttachmentPosition = 0
Campo = [Ô][Ô]
For X = 1 To Len(ArquivoAnexo)
If Mid(ArquivoAnexo, X, 6) = [Ô] - XML[Ô] Then
Exit For
Else
Campo = Campo & Mid(ArquivoAnexo, X, 1)
End If
Next X
ArquivoAnexo = Campo & [Ô] - PDF.pdf[Ô]
[ô] Anexo (PDF DA NFE)
MAPIMessages1.AttachmentIndex = 1
MAPIMessages1.AttachmentPathName = ArquivoAnexo [ô] COMO meu cliente salva como NFE 3909 - XML.XML, BASTA TIRAR O XML E COLOCAR PDF
MAPIMessages1.AttachmentPosition = 1
[ô] Envia e Fecha a Conexão
MAPIMessages1.Send False
MAPISession1.SignOff
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
[ô] Define endereço de email
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipDisplayName = Trim(txtPara.Text) [ô] AQUI DEIXE RecipDisplayName, SE FOR DE OUTRA FORMA DA ERRO
MAPIMessages1.RecipType = 1
[ô] Assunto do email (no caso o pdf e xml da nfe em questão)
MAPIMessages1.MsgSubject = txtAssunto.Text
[ô] Corpo do email (no caso o pdf e xml da nfe em questão, mais bom dia, boa tarde, etc...)
MAPIMessages1.MsgNoteText = txtObservações.Text
[ô] Anexo (XML DA NFE)
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentPathName = txtAnexo.Text [ô] meu cliente salva como NFE 3909 - XML.XML
MAPIMessages1.AttachmentPosition = 0
Campo = [Ô][Ô]
For X = 1 To Len(ArquivoAnexo)
If Mid(ArquivoAnexo, X, 6) = [Ô] - XML[Ô] Then
Exit For
Else
Campo = Campo & Mid(ArquivoAnexo, X, 1)
End If
Next X
ArquivoAnexo = Campo & [Ô] - PDF.pdf[Ô]
[ô] Anexo (PDF DA NFE)
MAPIMessages1.AttachmentIndex = 1
MAPIMessages1.AttachmentPathName = ArquivoAnexo [ô] COMO meu cliente salva como NFE 3909 - XML.XML, BASTA TIRAR O XML E COLOCAR PDF
MAPIMessages1.AttachmentPosition = 1
[ô] Envia e Fecha a Conexão
MAPIMessages1.Send False
MAPISession1.SignOff
Tópico encerrado , respostas não são mais permitidas