Toon posts:

[OUTLOOK 2003] Origineel bericht + afzender forwarden

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb gezocht en gevonden, maar krijg het nog niet aan de praat. Ik wil d.m.v. een rule in outlook alle mail die binnenkomt doorsturen naar mijn Gmail, met de oorspronkelijke afzender en het oorspronkelijke bericht.

Dit is wat ik heb gedaan:

Regel: alle mail die binnenkomt op dit systeem --> draai dit script:

Sub ForwardSubscribes(MyMail As MailItem)
Dim strID As String
Dim olNS As <b style="color:black;background-color:#a0ffff">Outlook</b>.NameSpace
Dim olMail As <b style="color:black;background-color:#a0ffff">Outlook</b>.MailItem
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set itm = olNS.GetItemFromID(strID)
' do stuff with olMail, e.g.
Set myInbox = olNS.GetDefaultFolder(olFolderInbox)
' Substitute your own destination folder for NL Processed
Set destFolder = myInbox.Folders("NL Processed")
Dim iMsg
Dim iConf
Dim Flds
Dim szServer
'Set MessageItems = MessageFolder.Items
Set iMsg = CreateObject("CDO.<b style="color:black;background-color:#ff9999">Message</b>")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
szServer = "http://schemas.microsoft.com/cdo/configuration/"
With Flds
.Item(szServer & "smtpserver") = "smtp.chello.nl"
.Item(szServer & "smtpconnectiontimeout") = 100 ' quick timeout
.Item(szServer & "smtpauthenticate") = 0
.Update
End With
Set iMsg.Configuration = iConf

' Build the <b style="color:black;background-color:#ff9999">message
</b> ' substitute the e-mail address as needed
iMsg.To = "test@gmail.com"
iMsg.From = itm.SenderEmailAddress
iMsg.Subject = itm.Subject
iMsg.Send

' Mark as read and move the <b style="color:black;background-color:#ff9999">message</b> to the NL Processed folder
itm.UnRead = False
itm.Move destFolder

End Sub

Dit script heb ik in de visual basic editor geplaatst en opgeslagen. Op mijn laptop gebeurt er helemaal niks en op mijn desktop krijg ik een syntax error op de derde regel. Ik kom niet verder...

  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

Als je code letterlijk van het net afplukt en hier presenteert is het imho wel net zo netjes om er even een bronvermelding bij te zetten. Maar wat ik me wel afvraag is hoe je die html 8)7 ertussen gewrot hebt, want die zie ik in het origineel niet terug.

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland