Advertisement

01.28.2008 at 05:49AM PST, ID: 23116154
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
8.2

How do I get fix the 462 error: Remote Server Machine does not exist - Outlook/Excel 2003 VBA

Asked by Conor_Newman in Outlook Groupware Software, Microsoft Excel Spreadsheet Software

Tags: , , ,

OS: Windows XP SP2
Office: 2003 Professional

Hi,

I have a macro in outlook that will take the selected mail, request some use input, and use this to find the destination directory and filename to save this mail as, it will also add a sequential number to the filename taken from an excel correspondence log, and record the details of the email in said log.

It works fine when I run it, when I try to run it again it errors out with:
"Run-time Error 462:  The Remote Server machine does not exist or is not available"

I thought this was something to do with Excel.exe process remaining running after I had run the macro first time, but I added in a shell call to a batch file that kills off the excel process, to see if this was the case, and that makes no difference.

Here's the code snippet

(It bugs out on the 63rd line:)


Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:

Sub SaveFile()
Shell "C:\KillExcel.bat"
Dim objExcel As New Excel.Application
Dim AppExc As Excel.Application
Dim theSel As Outlook.Selection, _
    itm As MailItem, _
    itmAttachment As Attachment, _
    strFilename As String
Dim ProjectNo As String
Dim Type1 As String
Dim Disc As String
Dim SeqNo As String
Dim SeqNo1 As String
    Dim Logfile1 As String
    Dim Logfile0 As String
    Dim Logfile2 As String
    Dim Logfile3 As String
    Dim Filename As String
    Dim Date1 As String
    Dim From1 As String
    Dim to1 As String
            
        
 
 
 
    Logfile = ""
    Logfile1 = InputBox("Project Number?")
    Logfile0 = InputBox("WBS Code?")
    Logfile2 = InputBox("Incoming, Internal or Outgoing?", , "Incoming, Internal or Outgoing")
    Disc = InputBox("2 digit discipline code?")
    Filename = Logfile1 & " " & Logfile2 & " " & "Correspondence Register.xls"
    Logfile3 = "M:\Projects\" & Logfile1 & "-" & Logfile0 & "\1.00.000 Project Management\1.00.030 CORRESPONDENCE\" & Logfile2
    Logfile = Logfile3 & "\" & Filename
    
        
    ProjectNo = ""
    ProjectNo = Logfile1
    If Logfile2 = "Incoming" Then
        Type1 = "IN"
        Else
        If Logfile2 = "Outgoing" Then
        Type1 = "OUT"
        Else
        Type1 = "INT"
    End If
    End If
    
 
    objExcel.Workbooks.Open Logfile
    
    
    Dim nRow As String
    
    nRow = 6
    
Location1:
    nRow = nRow + 1
    nCell = "B" & nRow
    
 
    objExcel.Sheets("Sheet1").Select
    Range(nCell).Select
    If ActiveCell.Value = "" Then
    lRow = nRow - 1
    GoTo Location2
    Else
    GoTo Location1
    End If
 
Location2:
 
    lCell = "B" & lRow
    Range(lCell).Select
    SeqNo1 = ActiveCell.Value
    SeqNo = SeqNo1 + 1
    lRow = lRow + 1
    lCell = "B" & lRow
     
 
    Set theSel = Application.ActiveExplorer.Selection
    If theSel.Count = 0 Then
        Exit Sub
    Else
        If theSel.Count > 1 Then
        Exit Sub
    Else
        For Each itm In theSel
        
            'Taking subject out and removing any unusable character's from it.
            Range("Z99").Select
            ActiveCell.FormulaR1C1 = ";:\"
            Range("Z98").Select
            ActiveCell.FormulaR1C1 = """"
            Range("Z97").Select
            ActiveCell.FormulaR1C1 = "'/"
            Range("Z100").Select
            ActiveCell.FormulaR1C1 = itm.Subject
            Range("Z97:Z100").Select
            Cells.Replace What:=":", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Cells.Replace What:=";", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Cells.Replace What:="/", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Cells.Replace What:="\", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Cells.Replace What:="""", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
                Cells.Replace What:="'", Replacement:=" ", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Range("Z100").Select
            Subject1 = ActiveCell.Value
            
            'Back to mail program
            From1 = itm.SenderName
            to1 = itm.To
            Date1 = itm.SentOn
                        
            strFilename1 = ProjectNo & "-" & Type1 & "-" & Disc & "-" & "0" & SeqNo & "__" & Subject1 & ".msg"
            strFilename = Logfile3 & "\" & strFilename1
            itm.SaveAs strFilename, olMSG
 
        Next
        Set Item = Nothing
        Set theSel = Nothing
    End If
    End If
    
    Range(lCell).Select
    ActiveCell.Offset(0, -1).Select
    ActiveCell.FormulaR1C1 = ProjectNo & "-" & Type1 & "-" & Disc & "-"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = SeqNo
    rCell = "F" & lRow
    Range(rCell).Select
    ActiveCell.FormulaR1C1 = strFilename1
    Range(lCell).Select
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = Date1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = From1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = to1
ActiveWorkbook.Save
 
 
objExcel.Workbooks.Close
Set AppExc = Nothing
Shell "C:\KillExcel.bat"
 
 
 
 
 
 
End Sub
Related Solutions: How do I get fix the 462 error: Remote Server Machine does not exist - Outlook 2007
[+][-]01.28.2008 at 07:30AM PST, ID: 20759785

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: Outlook Groupware Software, Microsoft Excel Spreadsheet Software
Tags: Microsoft, Outlook, 2003, Inputing Outlook data into Excel workbook
Sign Up Now!
Solution Provided By: rorya
Participating Experts: 3
Solution Grade: A
 
 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628