Notifications
Clear all

CDO após .SEND congela tela

2 Posts
1 Usuários
0 Reactions
806 Visualizações
(@fkleinbley)
Posts: 62
Trusted Member
Topic starter
 

Bom dia!

Tenho um código para envio de e-mail pelo CDO, ele envia tudo corretamente, mas após o envio, especificamente o .send ele meio que congela a tela do excel, tipo, tenho check box, quando clico em um ele não aparece que marcou, mas na verdade se eu mudar de guia e voltar ele vai estar marcado, não está atualizando a tela após o envio do e-mail, após o .send...
O que pode ser?

Segue o código,

Sub mail_reportar_erro()

On Error GoTo semInternet

modo = Worksheets("Metro").Range("O2").Value
representante = Worksheets("Definições").Range("D656").Value

If modo = "REVENDEDOR COM MARGEM DE LUCRO" Then
emailreportou = Worksheets("DK").Range("AE15").Value
quemreportou = Worksheets("DK").Range("Y8").Value
contatoreportou = Worksheets("DK").Range("P15").Value
End If
If modo = "REVENDEDOR SEM MARGEM DE LUCRO" Then
emailreportou = Worksheets("Orçamento").Range("AE15").Value
quemreportou = Worksheets("Orçamento").Range("Y8").Value
contatoreportou = Worksheets("Orçamento").Range("P15").Value
End If
If modo = "CONSTRUTORA / INCORPORADORA" Then
emailreportou = Worksheets("Orçamento").Range("AE15").Value
quemreportou = Worksheets("Orçamento").Range("Y8").Value
contatoreportou = Worksheets("Orçamento").Range("P15").Value
End If
If modo = "REPRESENTANTE" Then
emailreportou = Worksheets("Definições").Range("D658").Value
quemreportou = Worksheets("Definições").Range("D656").Value
contatoreportou = "Representante"
End If

destinatario = "33333333"

Dim oMensagem As Object
Dim oConfiguração As Object
Dim sCorpo As String
Dim vFields As Variant

Set oMensagem = CreateObject("CDO.Message")
Set oConfiguração = CreateObject("CDO.Configuration")

oConfiguração.Load -1 'Padrões CDO
Set vFields = oConfiguração.Fields
With vFields
.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "33333333"

.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Item(" http://schemas.microsoft.com/cdo/configuration/sendusername") = "3333333"
.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "3333333"
.Update
End With

sCorpo = _
vbNewLine & "Olá," & _
vbNewLine & _
vbNewLine & "Um erro foi reportado:" & _
vbNewLine & _
vbNewLine & ">>> " & erro.Text & " <<<" & _
vbNewLine & _
vbNewLine & "Reportado por: " & quemreportou & _
vbNewLine & "Contato: " & contatoreportou & " E-mail: " & emailreportou & _
vbNewLine & _
vbNewLine & "Representante: " & representante & _
vbNewLine & "Modo de Operação: " & modo

With oMensagem
Set .Configuration = oConfiguração
.To = destinatario 'mude aqui para alterar o destinatário
.From = """3333333333333"" <3333333333333333>"
.Subject = "REPORTAR ERRO DK PLANILHA"
.TextBody = sCorpo
.Send

Set oMensagem = Nothing
Set oConfiguração = Nothing

End With

MsgBox "O erro ou problema foi reportado com sucesso! Obrigado por sua ajuda! Att, ", vbInformation, "REPORTAR ERRO"

Unload reportarErro

Exit Sub

semInternet:
MsgBox "Verifique sua conexão com a internet e tente novamente.", vbInformation, "REPORTAR ERRO"

End Sub

 
Postado : 11/12/2014 5:00 am
(@fkleinbley)
Posts: 62
Trusted Member
Topic starter
 

Achei o caminho para resolver essa situação....
Set Vfields = Nothing
Limpou a variant e resolveu....

 
Postado : 11/12/2014 7:07 am