Need to Attach the file in Email ;using Ms-Access

[ttamilvanan81]

Hai.
i need to send and Receive Email with Attachmen using Ms-Access.
am done the Send Emial. But the attachment is still pending.
Am using the following code for send email.


Private Sub Command20_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Email_Address

If (Cc_Address.Value = Null) Then
Else
.CC = Me.Cc_Address
End If


If (Bcc_Address.Value = Null) Then
Else
.BCC = Me.Bcc_Address
End If


.Subject = Me.Mess_Subject
.HTMLBody = Me.mess_text
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description

Resume Error_out
Error_out:
End Sub

But the attachment is working as, we enter the full path of the file in the text box. But i need the Browse button to browse the file and the selected file path was stored in a text box. This type of file attachment i need it.

I know the Microsoft Common Dialog Control was do this. But i can't put the CommonDiaog Box in my Access form. Because the error occured, when i go to put the CommonDialog Box in my Access Form.

The error message is:

You don't have the license required to use this ActiveX control.

You tried to open a form containing an OLE object or an ActiveX control or you tried to create an ActiveX control. To obtain the appropriate license, contact the company that provides the licensed OLE object or ActiveX control.

Then i try to Register the many Control, like comcat.dll, comctl32.dll, comdlg32.dll, COMDLG32.OCX.

The COMDLG32.OCX only was Registered Successfully. But i have the same problem.

The error is:


c:\windows\system32\comctl32.dll was loaded, but the DllRegisterServer entry point was not found.

This file can not be registered.

So, still i am stuck. Pls help me

I don't know why this error could be occured. if anybody know, how to solve this error.

One thing. In my system i don't have the VB. The ActiveX controls are specific VB only? not Ms-Access?

If i need to install anyone ActiveX control in my system, where is the location(path) i go to install the new ActiveX control.

If anybody know how to attach the file in Email using Ms-Access for the above status, Please let me know.


Thanks
Tamilvanan

[RobDog888]

No need for all that code. Just use Access' built in email capabilities.
My code wil create an email populated withthe specifics shown in the arguments. The last argument is "True" which tells Access to present the email GUI for user interaction like adding an attachment.

1 line of c0d

Application.DoCmd.SendObject acSendNoObject, , acFormatTXT, "meow@example.com", , , "Spam", "This is the message text", True