|Doorsturen met behoud van afzender?

[ingmar]

In Outlook 2000 op mijn werk heb ik een doorstuurregel ingesteld: alle post met mijn naam in het Aan- of Cc-vakje moet worden doorgestuurd naar mijn thuisadres. Dat werkt ook wel, alleen is de afzender niet meer dezelfde, maar steeds veranderd in mijn mailnaam op het werk. Dat is erg onhandig als je later een mailtje van iemand terug wilt vinden. Weet iemand hier een oplossing voor?
(Ik heb ook een aantal zonnet-adressen met autoforward, die veranderen niks aan de afzendernaam.)

Alvast bedankt voor je antwoord,
Ingmar

 

[nusty]

De mail laten forwarden met het origineel bericht als bijlage?

 

[ingmar]

Hoi Nusty, bedankt.
Maar ik had het net geprobeerd: 't geeft hetzelfde probleem helaas.

I.

 

[nusty]

Ik vrees dat je de afzender niet kan veranderen...wat je wel zou kunnen doen is een script(macro) schrijven dat het onderwerp aanpast zodat je dit krijgt "<afzender> + <onderwerp>". Dan kan je dit ook laten uitvoeren door de regel.

edit:

Ik heb al snel een scriptje gemaakt dat het onderwerp aanpast naar "<afzender> + <onderwerp>"
Dit script werkt!

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Sub test(MyMail As MailItem)
' variabelen:
Dim strID, strAfzender, strOnderwerp As String
Dim olNS As Outlook.NameSpace
'originele mail
Dim olMail As Outlook.MailItem
'kopie
Dim olMailcopy As Outlook.MailItem

' mail-gegevens koppelen aan variabelen
strAfzender = MyMail.SenderName
strOnderwerp = MyMail.Subject
strID = MyMail.EntryID

Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)
Set olMailcopy = olNS.GetItemFromID(strID)

'onderwerp van het kopie opstellen
olMailcopy.Subject = strAfzender & " + " & strOnderwerp
'---------------
'olMailcopy.Save 'verwijder de eerste quote op deze lijn om het kopie te bewaren
'---------------

'doorsturen van het kopie
Set myforward = olMailcopy.Forward

'adres naar waar moet ge-forward worden:
myforward.Recipients.Add "iemand.anders@gmail.com"

' versturen
myforward.Send

Set olMail = Nothing
Set olNS = Nothing

End Sub

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Hoe moet je dit nu toepassen?
> Extra - Macro - Visual Basic Editor > scriptje plakken in het venster van Module1 > het email-adres wijzigen > opslaan
> De regel aanpassen door de optie "een script uitvoeren" te selecteren en het scriptje aan te duiden..

OPGELET! In de regel de mail niet laten doorsturen want dit staat reeds in het scriptje!

Indien je vragen hebt over het toepassen van dit macro, stel ze gerust.

grtzzzZ