MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Erro envio pelo Outlook

    avatar
    Convidado
    Convidado


    [Resolvido]Erro envio pelo Outlook Empty [Resolvido]Erro envio pelo Outlook

    Mensagem  Convidado 22/7/2016, 14:39

    Boa tarde,

    Hoje atualizei meu PC para windows 10 e um programinho que tinha criado para enviar emails deixo de funcionar.
    Este programa trabalhava sem problemas até instalar windows 10.

    Ele trava na para do ".To"

    Alguem para dar uma dica?

    Private Sub Command236_Click()
    Dim appOutlook As Object
    Dim olMail As Object
    Dim outItem As Object
    Text234.Value = "Enc. " & [Ord#Venda] & " - " & "Artigo - " & [Mat#(Ref#C] & " - " & "Item - " & Item
    If Time$ < #12:00:00 PM# Then
    Text237.Value = "Bom dia,"
    Else
    Text237.Value = "Boa tarde,"
    End If
    If InStr(Nome_Cliente_Final, "RENE") <> 0 Then
    MsgBox "Não esqueçer enviar relatório para " & Me.Nome_Cliente_Final, vbInformation, "Info"
    End If
    If MsgBox("Confirma o envio do e-mail da encomenda " & " - " & [Ord#Venda], vbInformation + vbYesNo, Me.[Mat#(Ref#C]) = vbYes Then
    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
    On Error Resume Next
    Set appOutlook = GetObject(, "Outlook.Application")
    If appOutlook Is Nothing Then
    Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    .To = Me.Text207
    .CC = "" & Me.Text209
    .Subject = Me.Nome_Cliente_Final
    .Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
    .Body = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" + vbNewLine + "Área Medição" + vbNewLine + vbNewLine + vbNewLine + " ****** Email enviado em modo automático pelo sistema ****** "
    .Send '.Display (ver email no outlook)
    End With
    MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
    Check199.Value = -1
    Else
    MsgBox "Operação abortada...", vbExclamation, "Info"
    End If
    Combo203.Value = Null
    Combo205.Value = Null
    Text207.Value = ""
    Text209.Value = ""
    Command236.Enabled = False
    DoCmd.Requery
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Erro envio pelo Outlook Empty Re: [Resolvido]Erro envio pelo Outlook

    Mensagem  Alvaro Teixeira 6/9/2016, 19:15

    Olá Roberto,
    Vejo que já resolveu.
    Pode partilhar onde estava o problema.
    Os membros do fórum agradecem.
    Abraço
    avatar
    Convidado
    Convidado


    [Resolvido]Erro envio pelo Outlook Empty Re: [Resolvido]Erro envio pelo Outlook

    Mensagem  Convidado 7/9/2016, 10:12

    Bom dia,
    Desculpem por não ter postado a resposta ao meu erro.
    Vou postar o código com alteração que fiz para ficar a funcionar.
    Não percebi muito bem o porque que foi preciso essa alteração, mas assim ficou a funcionar.

    Private Sub Command236_Click()
    Dim appOutlook As Object
    Dim olMail As Object
    Dim outItem As Object
    Dim EnvioTO As String
    Dim EnvioCC As String
    Dim Enviosub As String
    Dim EnvioBody As String

    Text234.Value = "Enc. " & [Ord#Venda] & " - " & "Artigo - " & [Mat#(Ref#C] & " - " & "Item - " & Item
    If Time$ < #12:00:00 PM# Then
    Text237.Value = "Bom dia,"
    Else
    Text237.Value = "Boa tarde,"
    End If
    If InStr(Nome_Cliente_Final, "RENE") <> 0 Then
    MsgBox "Não esqueçer enviar relatório para " & Me.Nome_Cliente_Final, vbInformation, "Info"
    End If
    If MsgBox("Confirma o envio do e-mail da encomenda " & " - " & [Ord#Venda], vbInformation + vbYesNo, Me.[Mat#(Ref#C]) = vbYes Then
    'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
    On Error Resume Next
    Set appOutlook = GetObject(, "Outlook.Application")
    If appOutlook Is Nothing Then
    Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0

    Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

    With olMail
    EnvioTO = Me.Text207
    EnvioCC = "" & Me.Text209
    Enviosub = Me.Nome_Cliente_Final
    EnvioBody = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" +
    vbNewLine + "Área Medição" + vbNewLine + vbNewLine + vbNewLine + " ****** Email enviado em modo automático pelo sistema ****** "
    .To = EnvioTO
    .CC = EnvioCC
    .Subject = Enviosub

    '.Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
    .Body = EnvioBody
    .Send '.Display (ver email no outlook)
    End With
    MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
    Check199.Value = -1
    Else
    MsgBox "Operação abortada...", vbExclamation, "Info"
    End If
    Combo203.Value = Null
    Combo205.Value = Null
    Text207.Value = ""
    Text209.Value = ""
    Command236.Enabled = False
    DoCmd.Requery
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Erro envio pelo Outlook Empty Re: [Resolvido]Erro envio pelo Outlook

    Mensagem  Alvaro Teixeira 7/9/2016, 12:18

    Olá Roberto,
    Talvez o "option explicit" estivesse presente.
    No entanto, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Erro envio pelo Outlook Empty Re: [Resolvido]Erro envio pelo Outlook

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:37