As the reference to Range("G5") is not fully referenced you may get an error
if the sheet from which G5 is referenced is not the active sheet.
Is the path a valid path?
--
Regards,
Nigel
(E-Mail Removed)
"Corey" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I think i may have deleted a part of code ina module to now cause a
>Compile Error.
> The error is:
> "Sub or Fuction Not Defined."
>
> The error line is highlighted in the code below.
>
> Can some help me fix this?
>
> Sub SendPDF()
> Dim OutApp As Object
> Dim OutMail As Object
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
> Set OutApp = CreateObject("Outlook.Application")
> OutApp.Session.Logon
> Set OutMail = OutApp.CreateItem(0)
> With OutMail
> .To = Sheet1.Range("B13").Value
> .CC = Sheet1.Range("B15").Value
> .BCC = ""
> .Subject = Sheet1.Range("B63").Value
> .Body = Sheet1.Range("B65").Value
> If Not FileExists("\\Server\Pdf's\" & Range("G5").Value
> & ".pdf") Then ' <=== ERROR
> MsgBox "The pdf file doesn't exist! " & "Please check
> the pdf File Name you just saved" & vbCrLf & vbCrLf & "It MUST be saved as
> " & Sheet1.Range("G5").Value & " ONLY!", vbCritical, "...."
> Exit Sub
> Else
> .Attachments.Add ("\\Server\Pdf's\" & Range("G5").Value &
> ".pdf")
> End If
> .send
> End With
> On Error GoTo 0
>
> Set OutMail = Nothing
> Set OutApp = Nothing
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
> Sheet1.Range("B64").Value = Time & Date
> Sheets("Information").Range("B64").Value =
> Format(Sheets("Information").Range("B64").Value, "hh:mmAM/PM dddd dd
> mmmm yyyy ")
> Sheet1.Protect
> End Sub
>
> --
> Corey ....
> The Silliest Question is generally
> the one i forgot to ask.
>
Similar Threads
