Run time error

[Todd Huttenstine]

When I run this code I am getting the error Run-Time error
on this part of the code... "objAttachmt.Source =
ComboBox1.Value"

Below is the entire code.

Please help.

Thanx

Private Sub CommandButton4_Click()
If CheckBox2.Value = True And ComboBox1.Value = "Please
Select Agent to Email" Then
MsgBox "Input Error!" & vbCrLf & "You Must Select
an Agent", vbCritical, "Input Error"
Exit Sub
Else
Dim objSession As Object, objMessage As Object,
objOneRecip As Object
Dim objAttachmt As Object

Set objSession = CreateObject("MAPI.Session")
objSession.Logon
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Stats"
objMessage.Text = ""
Set objAttachmt = objMessage.Attachments.Add
objAttachmt.Source = ComboBox1.Value
'objAttachmt.Source = ("C:\Sheets.xls")
'Set objOneRecip = objMessage.Recipients.Add
'objOneRecip.Name = "(e-mail address removed)"
'objOneRecip.Type = 1
'objOneRecip.Resolve
objMessage.Send showDialog:=True
objSession.Logoff
End If
MsgBox "done"
Exit Sub

If CheckBox1.Value = True Then
MsgBox "insert code2 here"
Else
End If
End Sub

 

[Rob van Gelder]

I've not tried to reproduce the problem.

Could you try a couple of things:
Does the line: 'objAttachmt.Source = ("C:\Sheets.xls") work?
Set a breakpoint on the line which errors. Then when it activates, type the
following into the immediate window (activate it via View menu | Immediate
Window):
?ComboBox1.Value

Tell me what that returns.

Cheers

 

[Todd Huttenstine]

Hey I used the following code... It is working now. I
had to create a new variable.

Dim sStr As String
Dim objAttachmt As Object
sStr = ComboBox1.Value
Worksheets(sStr).Copy
ActiveWorkbook.SaveAs "C:\Stats.xls", _
FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close SaveChanges:=False
Dim objSession As Object, objMessage As Object,
objOneRecip As Object
Set objSession = CreateObject("MAPI.Session")
objSession.Logon
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Stats"
objMessage.Text = ""
'Set objOneRecip = objMessage.Recipients.Add
'objOneRecip.Name = "(e-mail address removed)"
'objOneRecip.Type = 1
'objOneRecip.Resolve
'objMessage.Attachments.Add "C:\Stats.xls"
Set objAttachmt = objMessage.Attachments.Add
objAttachmt.Source = ("C:\Stats.xls")
objMessage.Send showDialog:=True
objSession.Logoff
On Error Resume Next
Kill "C:\Stats.xls"