Excel VBA help for novice

[Jak68]

Hi, I hope someone can help me.


I found the code below which I have tweaked to suit myself and it does send emails as I need but when I run the code it comes up with an error saying 'Run-time error '13', 'Type mismatch'. This error comes up with the highlighted line.


Does anyone know what is causing this, as with being a novice I would't know were to start looking?


Private Sub sendemail()
Dim WatchRange As Range
Dim IntersectRange As Range
Dim x As Integer
Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim stSignature As String


With Application


.ScreenUpdating = False
.DisplayAlerts = False
' Open and locate current LOTUS NOTES User
For x = 2 To Cells(Rows.Count, "O").End(xlUp).Row
If Range("O" & x).Value = "DUE" Then
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If
' Create New Mail and Address Title Handlers
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Message"
'stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
' Select range of e-mail addresses
'Recipient = Worksheets("Sheet1").Range("B" & x).Value
MailDoc.SendTo = "EMAIL ADDRESS IS HERE"
MailDoc.Subject = "Calibration now Due - " & Range("A" & x).Value
MailDoc.Body = "An item is now due for calibration, please arrange for this to be done ASAP."
MailDoc.SaveMessageOnSend = True
MailDoc.PostedDate = Now()


On Error GoTo errorhandler1
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True


errorhandler1:
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing


End If
Next x

 

[NdNoviceHlp]

Remove the "With Application" HTH. Dave