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


    Macro Excel

    avatar
    Claudio Tavares Pereira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Macro Excel Empty Macro Excel

    Mensagem  Claudio Tavares Pereira Sex 17 Out 2014, 00: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: Ter 08 Out 2024, 20:13