Automatically Sending Outlook Email By Clicking A Button in an Access 1

[StarScream]

Automatically Sending Outlook Email By Clicking A Button in an Access 2000

Scenario: Trying to have a button send an email using some information from a form, some information as part of the code.

Here is what I have so far. Can't seem to get it to work.

Private Sub CmdSend_Click()

Dim olapp As Object
Dim oitem As Object

Set mSubject.Value = "You Have Mail!"
Set mBody.Value = "Message information."
Set ComBcc.Value = ""
Set ComCc.Value = ""
Set ComTo.Value = "pajamas94@home.com"
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
.Subject = mSubject
.To = ComTo.Value & ";"
.Body = mBody
If ComCc.Value <> &quot;&quot; Then
.cc = ComCc.Value & &quot;;&quot;
End If
If ComBcc.Value <> &quot;&quot; Then
.bcc = ComBcc.Value & &quot;;&quot;
End If
.Send
End With
Set olapp = Nothing
Set oitem = Nothing

Unload Me
End Sub

I keep getting a error everytime. Where is my error? Thanks.

PJ

 

[StewartGW]

You are using an Unload statement which has a referenced to an invalid object or control. You cannot load or unload an
an object that isn't a loadable object, such as Screen, Printer, or Clipboard. Delete the erroneous statement from your code.

Also, why not Reference the object in your Microsoft Access application and avoid late binding. On the VBA IDE menu, select Tools/Reference. Then select 'Microsoft Outlook 9.0 Object'.

Enter the following code:
Private Sub Command0_Click()

Dim olapp As Outlook.Application
Dim oitem As Outlook.MailItem
Dim sSubject As String
Dim sBody As String
Dim sTo As String
Dim sCC as String
Dim sBCC as String

sSubject = "You Have Mail!"
sBody = "Message information."
'Set ComBcc.Value = ""
'Set ComCc.Value = ""
sTo = "pajamas94@home.com"
Set olapp = New Outlook.Application
Set oitem = olapp.CreateItem(olMailItem)
With oitem
.Subject = sSubject
.To = sTo
.Body = sBody
If Len(sCC) > 0 Then .CC = sCC
If Len(sBCC) > 0 Then .BCC = sBCC
.Send
End With
Set olapp = Nothing
Set oitem = Nothing
Unload Me

End Sub