Script for videresending av sendte e-post

[voluz]

Hei!

 

Har behov for å lage et script som automatisk videresender alle e-poster JEG sender til en e-postadresse. (I tillegg til mottakeren da selvsagt.)

 

Vet jeg kunne brukt "Regler", men dette er disablet av arbeidsplassen. Videresending av mottatte meldinger er også disablet i "Regler", men har fått tak i et script som omgår dette:

 

Public WithEvents myOlItems As Outlook.Items


Public Sub Application_Startup()

  ' Reference the items in the Inbox. Because myOlItems is declared
  ' "WithEvents" the ItemAdd event will fire below.
  Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items

End Sub


Private Sub myOlItems_ItemAdd(ByVal Item As Object)

   ' Check to make sure it is an Outlook mail message, otherwise
   ' subsequent code will probably fail depending on what type
   ' of item it is.
   If TypeName(Item) = "MailItem" Then

  	' Forward the item just received
  	Set myForward = Item.Forward

  	' Address the message
  	myForward.Recipients.Add "[email protected]"

  	' Send it
  	myForward.Send

   End If

End Sub

 

Noen som kan "omskrive" dette slik at det også fungerer på "Sendte elementer"?

[nomore]

Høres ut som en fiffig måte å omgå IT-reglene på arbeidsplassen. Har du prøvd å høre med IT avdelingen om de kan åpne opp at du kan videresende evnt at du får lov? Så har du i det minste ditt på det rene.

 

Det bør forsåvidt ikke være værre enn å endre olFolderInbox til olFolderSent.

[voluz]

Høres ut som en fiffig måte å omgå IT-reglene på arbeidsplassen. Har du prøvd å høre med IT avdelingen om de kan åpne opp at du kan videresende evnt at du får lov? Så har du i det minste ditt på det rene.

 

Det bør forsåvidt ikke være værre enn å endre olFolderInbox til olFolderSent.

 

Definitivt en fiffig måte Og de er ikke åpen for det nei. KAN få lov i spesielle tilfeller, men hovedregelen var "njet".

 

Videresending av e-post er forøvrig noe jeg har gjort i flere år, men så besluttet bedriften å gå over fra GroupWise til Outlook, og da ble det slutt på moroa. Noe jeg ikke tenkte å finne meg i....

 

Er jo metoder for å flytte innkomne mailer til andre mapper osv., men selvsagt har de stengt av for POP og IMAP også, så får ikke lagt til noen private kontorer.

 

Om noen vet om andre metoder er jeg alltids åpen for det....

Endret 22. mars 2010 av voluz

[nomore]

Om du ikke har tenkt å innfinne deg i regler arbeidsgiver har så regner eg med at du også er klar for å ta evnt konsekvenser dette medfører. Typisk er oppsigelse osv. At du har gjort det i alle år er ikke formildende men skjerpende.

 

Om du får tilgang til å legge til egen kode så ser eg ikke hvorfor koden du har ikke skulle fungere.

Endret 22. mars 2010 av nomore

[voluz]

Om du ikke har tenkt å innfinne deg i regler arbeidsgiver har så regner eg med at du også er klar for å ta evnt konsekvenser dette medfører. Typisk er oppsigelse osv. At du har gjort det i alle år er ikke formildende men skjerpende.

 

Om du får tilgang til å legge til egen kode så ser eg ikke hvorfor koden du har ikke skulle fungere.

 

Tjash, så strengt er det vel ikke. Jobber ikke i NASA heller. Så veldig klare regler på det har det heller ikke vært. Folk videresender hele tida mailer til private epostadresser for å kunne jobbe med ting hjemmefra.

 

Koden fungerer ok på innkommende, dessverre krever det at Outlook er åpen når mailen ankommer, ellers blir det ikke videresendt. Ikke noen shocker det, ettersom koden kjøres på klientsiden, men hadde håpet at mailene ble videresendt etterskuddsvis når jeg åpnet Outlook..... noe som ikke skjer.

 

Og jeg får ikke scriptet til å fungere på utgående post....

[voluz]

Løsningen for å videresende mail DU har sendt ved hjelp av VBA-script:

 

Private Sub Application_ItemSend(ByVal Item As Object, _
                            	Cancel As Boolean)
   Dim objRecip As Recipient
   Dim strMsg As String
   Dim res As Integer
   Dim strBcc As String
   On Error Resume Next

   ' #### USER OPTIONS ####
   ' address for Bcc -- must be SMTP address or resolvable
   ' to a name in the address book
   strBcc = "[email protected]"

   Set objRecip = Item.Recipients.Add(strBcc)
   objRecip.Type = olBCC
   If Not objRecip.Resolve Then
       strMsg = "Could not resolve the Bcc recipient. " & _
            	"Do you want still to send the message?"
       res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
               "Could Not Resolve Bcc Recipient")
       If res = vbNo Then
           Cancel = True
       End If
   End If

   Set objRecip = Nothing
End Sub

 

Enkleste var altså bare å automatisk legge til adressen din i et BCC-felt. Usynlig for mottaker og det peneste resultatet for deg når du skal motta...