mail doorsturen met vaste tekst in het onderwerp

[dekamkou]

Ik wil dat mail die wordt ontvangen in een mailbox naar een bepaald mailadres wordt doorgestuurd.
Dat kan je instellen met 'regels'.
Ik wil echter aanvullend hierop altijd het woord 'factuur' toevoegen in het onderwerp, alvorens het door te sturen.
dat krijg ik met 'regels' niet voor elkaar.

Graag hulp, alvast bedankt

 

[AccessGuru]

Ook niet als je een nieuw formulier maakt met de gewenste vaste tekst in het onderwerp? Ik denk nl. dat je dan dat formulier wel kan gebruiken in de regel.

 

[JEC.]

Probeer deze eens

Public WithEvents myOlItems As Outlook.Items

Private Sub Application_Startup()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Public Sub myOlItems_ItemAdd(ByVal Item As Object)
 If TypeOf Item Is Outlook.MailItem Then
    With Item.Forward
      .To = "test@hotmail.com"
      .Subject = "Factuur " & .Subject
      .Display  '.send
    End With
 End If
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

 

[dekamkou]

Ook niet als je een nieuw formulier maakt met de gewenste vaste tekst in het onderwerp? Ik denk nl. dat je dan dat formulier wel kan gebruiken in de regel.

Sorry, maar ik snap nog niet helemaal wat u bedoeld.

 

[dekamkou]

Probeer deze eens

Public WithEvents myOlItems As Outlook.Items

Private Sub Application_Startup()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Public Sub myOlItems_ItemAdd(ByVal Item As Object)
 If TypeOf Item Is Outlook.MailItem Then
    With Item.Forward
      .To = "test@hotmail.com"
      .Subject = "Factuur " & .Subject
      .Display  '.send
    End With
 End If
 Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
End Sub

Bedankt voor uw antwoord, kan je deze code ergens in het menu van 'regels beheren' plakken of die je dit te automatiseren in Power automate oid

 

[JEC.]

Dit is VBA, die code plak je dus in de VBA editor achter outlook.

 

[dekamkou]

Dit is VBA, die code plak je dus in de VBA editor achter outlook.

Bedankt, ik ga ermee aan de slag !