MALA DIRETA EXCEL VBA
Boa tarde,
Peguei este codigo da net que serve de mala direta excel / vba.. porem quando ele envia o email vai sem a mensagem. gostaria de contar com ajuda de vcs para solução deste caso. ja tentei colocar para add a mensagem a linha de codigo message :=[Ô]Bom dia, Segue em anexo arquivo solicitado[Ô] , mas não funcionou.
Dim DataRef
DataRef = Sheets(1).Cells(1, 1).Value
If DataRef < Date Then
ActiveWorkbook.SendMail _
Recipients:=[Ô]responsavel@email.com.br[Ô], _
Subject:=[Ô]Arquivo expirado [Ô] & ThisWorkbook.Name
Peguei este codigo da net que serve de mala direta excel / vba.. porem quando ele envia o email vai sem a mensagem. gostaria de contar com ajuda de vcs para solução deste caso. ja tentei colocar para add a mensagem a linha de codigo message :=[Ô]Bom dia, Segue em anexo arquivo solicitado[Ô] , mas não funcionou.
Dim DataRef
DataRef = Sheets(1).Cells(1, 1).Value
If DataRef < Date Then
ActiveWorkbook.SendMail _
Recipients:=[Ô]responsavel@email.com.br[Ô], _
Subject:=[Ô]Arquivo expirado [Ô] & ThisWorkbook.Name
Dim DataRef
DataRef = Sheets(1).Cells(1, 1).Value
If DataRef < Date Then
ActiveWorkbook.SendMail _
Recipients:=[Ô]responsavel@email.com.br[Ô], _
Subject:=[Ô]Arquivo expirado [Ô] & ThisWorkbook.Name & _
Body:=[Ô]Sua mensagem aqui![Ô]
DataRef = Sheets(1).Cells(1, 1).Value
If DataRef < Date Then
ActiveWorkbook.SendMail _
Recipients:=[Ô]responsavel@email.com.br[Ô], _
Subject:=[Ô]Arquivo expirado [Ô] & ThisWorkbook.Name & _
Body:=[Ô]Sua mensagem aqui![Ô]
Tópico encerrado , respostas não são mais permitidas