Hi,

I'm getting an error on another line that is supposed to open Outloo
and save add an appointment to the users calendar. The code is below.

The Private Sub cmdSave_Click() is highlighted as well as the Di
objApp as Outlook.Application.

Thanks in advance for your help.

Jeff

Private Sub cmdSave_Click()

Dim wb As Workbook

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objAppointment As Outlook.AppointmentItem
Dim s As String, st As String, str As String, stri As String, strin A
String

On Error Resume Next
Set objApp = GetObject(, "Outlook.Application")
If Err.Number Then Set objApp = CreateObject("Outlook.Application")
On Error GoTo

--
Message posted from http://www.ExcelForum.com