Identifique el elemento que desencadenó la ejecución de un código de script en una regla
Deseo exportar el contenido de cualquier correo electrónico que se reciba a un archivo de texto automáticamente. Si ya hay texto en ese archivo de texto, entonces el nuevo texto debería sobrescribirlo.
Se puede establecer una regla para ejecutar este script cuando se recibe un correo electrónico.
Por ejemplo:
Recibo un correo electrónico que dice "Feliz cumpleaños".
El texto "Feliz cumpleaños" debe guardarse en "entranteEmail.txt"
Sub extractDataAsString(item As Outlook.MailItem)
Dim olItem As Outlook.MailItem
Dim sText As String
Set olItem = ActiveExplorer.Selection.item(1)
sText = olItem.Body
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Fileout As Object
Set Fileout = fso.CreateTextFile("K:\Project\Python\incomingEmail.txt", True, True)
Fileout.Write sText
Fileout.Close
End Sub
El código anterior exporta el cuerpo del correo electrónico seleccionado actualmente al archivo de texto. Quiero exportar el cuerpo del nuevo correo electrónico al archivo de texto.
Creo que esto se debe a la línea:
Set olItem = ActiveExplorer.Selection.item(1)
Sin embargo, no puedo encontrar cómo seleccionar el último correo electrónico.