Outlook - Incluir código no campo assunto da mensagem recebida e enviada

Question

Bom dia Felipe,

Estou precisando de ajuda, não conheço e não estou encontrando como programar no outlook, e preciso criar um script, onde toda a mensagem recebida e se possível enviada, seja incluído no começo do campo "assunto" a data e a hora no formato (ddmmaa [hh]mm) para registro.

Como arquivamos como arquivos em pastas de cada cliente, isso ajudaria na pesquisa por tempo, uma vez que nem sempre conseguimos no dia que recebemos a mensagem arquiva-la em seu diretório em formato de arquivos.

Caso possa me ajudar, agradeço antecipadamente.

Rogério F. Cunha

Answer 1

Option Explicit

Sub teste()


Dim MyOlapp As Object
Dim myItem As Object
Dim olMailItem As Integer

 Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
    With myItem
    .To = "[e-mail]"
    .CC = ""
    .Subject = Date & "Comunicado "
    
   .send
    End With
End Sub

---

Anderson Diniz [e-mail]

Answer 2

Option Explicit

Sub teste()


Dim MyOlapp As Object
Dim myItem As Object
Dim olMailItem As Integer

 Set MyOlapp = CreateObject("Outlook.Application")
    Set myItem = MyOlapp.CreateItem(olMailItem)
    With myItem
    .To = "[e-mail]"
    .CC = ""
    .Subject = Now & "Comunicado "
    
   .send
    End With
End Sub

---

Anderson Diniz [e-mail]

Answer 3

https://www.youtube.com/results?search_query=vba+enviar+email

---

Anderson Diniz [e-mail]

Answer 4

Bom dia Anderson

Muito obrigado pelo retorno, porém não trata-se de criar uma nova mensagem, mas organizá-las de forma que qualquer mensagem que chegue a minha caixa de entrega ou saida, receba no campo assunto o "DDMMAA [HH]MM"

Mas valeu, este código irei utiizá-lo em outro projeto.

Caso tenha mais alguma ideia eu agradeço.