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


2 participantes

    MACROS 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

    MACROS EXCEL Empty MACROS EXCEL

    Mensagem  Claudio Tavares Pereira 19/12/2014, 12:54

    Senhores,
    Bom Dia
    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    MACROS EXCEL Empty Re: MACROS EXCEL

    Mensagem  Alexandre Neves 19/12/2014, 17:52

    Porque o fórum se destina a Access, este assunto foi movido para esta sala


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 29/3/2024, 04:41