MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Macro Excel

    Compartilhe

    Claudio Tavares Pereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 15/10/2014

    Macro Excel

    Mensagem  Claudio Tavares Pereira em Qui 16 Out 2014, 23:24

    Senhores,
    Boa Noite
    Estou tendo um problema com a macro abaixo..
    Ela funciona com o comando 'display' mas como comando 'send' ele da a mesnagem: erro em tempo de execução '287'.
    Os senhores poderiam me ajudar.
    Grato

    Sub sbx_envia_email()

    'Application.Goto Reference:="SBX_ENVIA_EMAIL"

    Dim X As Long

    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    For X = 1 To Range("C65536").End(xlUp).Row
    'For X = 1 To 2

      If Range("AC" & X) <> "X" Then

         texto = "Prezado(a) " & Range("A" & X) & vbCrLf & vbCrLf & _
         "O valor total das suas refeições em setembro/2014 foi de R$: " & Range("AA" & X) & vbCrLf &vbCrLf & _
                 "Atenciosamente" & vbCrLf & vbCrLf
                 
         With OutMail

            .To = Range("B" & X)
            .cc = "c.tavares@uol.com.br"
            .bcc = ""
            .Subject = "VALOR DE SUAS REFEIÇÕES"
            .body = texto
            .send

         End With
             
      End If

    Next X

    End Sub

      Data/hora atual: Sab 24 Jun 2017, 20:07