Um, dos meus códigos VBAs favoritos: Ele permite anexar e enviar o arquivo em que você está trabalhando com um endereço de e-mail, título e corpo da mensagem predefinidos! Primeiro você precisa definir a referência ao Microsoft Outlook (no seu editor VBA, clique em ferramentas => referências e escolha Microsoft Outlook).
Sub SendFIleAsAttachment()
'Declarar suas variáveis
' Definir referência para a biblioteca de objetos do Microsoft Outlook
Dim OLApp As Outlook.Application
Dim OLMail As Object
'Abrir o Outlook iniciar um novo item de correio
Definir OLApp = Novo Outlook.Application
Definir OLMail = OLApp.CreateItem( 0 )
OLApp.Session.Logon
'Crie seu item de e-mail e envie
com OLMail
. To = "admin@datapigtechnologies.com; mike@datapigtechnologies.com"
.CC = ""
.BCC = ""
.Subject = "Esta é a linha de assunto"
.Body = "Olá"
.Anexos.Adicionar ActiveWorkbook.FullName
.Display 'Alterar para .Enviar para enviar sem revisar
End With
'Limpeza de memória
Set OLMail = Nothing
Set OLApp = Nothing
End Sub
Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário