none
Como copia uma célula do excel e colocar como "assunto" automaticamente numa macro? RRS feed

  • Pergunta

  • Como copia uma célula do excel e colocar como  "assunto" automaticamente numa macro?

    Faço um arquivo e gero um e-mail que gera no outlook o anexo diretamente no corpo da mensagem.  O que preciso, é que a macro ou outro meio, pegue uma determinada célula do excel que contem o nome da mensagem e coloque no assunto automaticamente.   

    quinta-feira, 24 de maio de 2012 15:01

Respostas

  • Sub EnviaEmail()
    
        Dim appOutlook As Object
        Dim olMail As Object
        
        '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 = "benzadeus3@ambienteoffice.com.br"
            .Subject = "Assunto" 'Troque por, por exemplo, Range("A1")
            .Body = "Corpo do E-mail"
            .Display 'ou .Send
        End With
    End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de maio de 2012 01:20
    Moderador