[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

issues setting up catch all for exchange 2003

Posted on 2009-02-16
1
Medium Priority
?
312 Views
Last Modified: 2012-05-06
Hi

I am having a small prob with setting up catch all with exchange.
I have created scripts, however when i the program was intiated emails stopped being delivered to mailboxes.

********************
'
'  Change any @example.com recipient(s) to bob@company.com
'
Function FixupRecipList(strList)
  On Error Resume Next
  Dim strFixedList
  Dim nDomainPart
  Dim nNamePart
  Dim nNextAddress
  strFixedList = strList
  While (InStr(LCase(strFixedList),"@g******a.ie"))
    nDomainPart = InStr(LCase(strFixedList),"@g******a.ie")
    nNamePart = InStrRev(strFixedList,";",nDomainPart)
    nNextAddress = InStr(nDomainPart+Len("@g******a.ie;"),strFixedList,"SMTP:")
    If (0 = nNamePart) Then
      ' @example.com is first name in recipient list
      If (0 = nNextAddress) Then
        ' @example.com is the last name in the recipient list
        strFixedList = "SMTP:g*******mail@gmail.com;"
      Else
        ' @example.com is not the last name in the recipient list
        strFixedList = "SMTP:g****mail@gmail.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
      End If
    Else
      ' @example.com is not the first name in recipient list
      If (0 = nNextAddress) Then
        ' @example.com is the last name in the recipient list
        strFixedList = Left(strFixedList,nNamePart) & "SMTP:g***mail@gmail.com;"
      Else
        ' @example.com is not the last name in the recipient list
        strFixedList = Left(strFixedList,nNamePart) & "SMTP:g****mail@gmail.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
      End If
    End If
  Wend
*********************************

I added in emails aboce, it mentioned that delivery address needs to be differnent domain that internal domain.  So I created a gmail account for this, and forwarded that back to internal mailbox.
Is there something i am missing?
Thanks
STephen
0
Comment
Question by:cstephen100
1 Comment
 
LVL 25

Accepted Solution

by:
kieran_b earned 2000 total points
ID: 23654208
Don't forward it to an external address - create a new FAKE address on the inside, user@catchall.example.com for instance

Add it to the recipient policy, add it to a single user and rejig your catchall script
0

Featured Post

Visualize your virtual and backup environments

Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

On September 18, Experts Exchange launched the first installment of the Help Bell, a new feature for Premium Members, Team Accounts, and Qualified Experts. The Help Bell will serve as an additional tool to help teams increase question visibility.
In this post, I will showcase the steps for how to create groups in Office 365. Office 365 groups allow for ease of flexibility and collaboration between staff members.
This video demonstrates how to sync Microsoft Exchange Public Folders with smartphones using CodeTwo Exchange Sync and Exchange ActiveSync. To learn more about CodeTwo Exchange Sync and download the free trial, go to: http://www.codetwo.com/excha…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
Suggested Courses

825 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question