send outlook email with late binding

[markjkubicki]

sorry, it may be late (or I may be showing my naiveté..) but could I kindly ask some one to proof this; I'm getting the error:
olMail not defined...
(stumped)

Public Sub SendEmail(varAddress As Variant, varSubject As String, varBody As String)
Dim CurrFile As String
Dim olApp As Object
Dim olNameSpace As Object
Dim olMail As Object
Set olApp = GetObject("Outlook.Application")
If Err.Number0 Then
Err.Clear
Set olApp = CreateObject("Outlook.Application")
If Err.Number0 Then
MsgBox "Cannot get Outlook"
Exit Sub
End If
End If
Set olApp = CreateObject("Outlook.Application")
olApp.GetNamespace("MAPI").Logon
Set olMail = olApp.CreateItem(0)
Dim vTitle As String
Dim vPrompt As String
Dim responce As Variant
If IsNull(varAddress) Then
vTitle = "MISSING ADDRESS"
vPrompt = "Address is incorrect or missing; no email will be sent"
responce = MsgBox(vPrompt, vbOKOnly + vbCritical, vTitle)
Exit Sub
Else
With olMail
.To = varAddress & ""
.Subject = Nz(varSubject, "")


.Body = Nz(varBody, "")
.Display
End With
End If
Set olMail = Nothing
CleanUp
End Sub

many thanks in advance
mark

[ItsMe]

Looks like late binding to me.

Why are you including
olApp.GetNamespace("MAPI").Logon

I don't see it being used and I suppose it could be conflicting with trying to set the mail object.

[markjkubicki]

I tried commenting the MAPI line, and it had no effect what so ever (and I agree, I don't see that it is used, it's just part of a snippet of code I copied, and never took the time to learn about... so I've always left it there; I promise, after I solve the current dilemma, I'll take the time to learn about Namespace and "MAPI"...)

the odd thing is that this morning. the error is at the line
Set olMail = olApp.CreateIteem(0)
" the variable olApp not defined "

still stumped,
Mark

[ItsMe]

Maybe build a new form or at least a new control? I was able to get the following to work. With reference to Outlook Object and without, with Outlook Running and without.

Dim olApp As Object
Dim objMail As Object
Set olApp = CreateObject("Outlook.Application") 'Create a new instance of Outlook
'Create e-mail item
'Set objMail = olApp.CreateItem(olMailItem)
Set objMail = olApp.CreateItem(0)
With objMail
'Set body format to HTML
'.BodyFormat = olFormatHTML
.bodyformat = 2
.To = "Email@Domain.com"
.Subject = "Subject"
.HTMLBody = "Text "
.Save
.send
End With