[AccessD] vbSendMail - Using with Access

Did you set a reference to the DLL?

Doris Manning
Database Administrator
Hargrove Inc.
www.hargroveinc.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
paul.hartland at fsmail.net
Sent: Monday, March 08, 2004 9:47 AM
To: Access Developers discussion and problem solving
Subject: Re: Re: [AccessD] vbSendMail - Using with Access


To all,
 
This is my code I currently have for the VBSendMail.dll :
 
Public poSendmail As vbSendMail.clsSendMail     ' Used for the vbSendMail
funtion (email directly to SMTP server).
 
Function SendEmail()
     ' **** SEND THE EMAIL MESSAGE DIRECTLY THROUGHT THE SMTP SERVER
(primary) ****
 
        Set poSendmail = New vbSendMail.clsSendMail
        
        poSendmail.SMTPHost = "Primary"
        poSendmail.From = "me at orridge.co.uk"
        poSendmail.FromDisplayName = "me"
        poSendmail.Recipient = pStrEmailTo
        poSendmail.ReplyToAddress = "me at orridge.co.uk"
        poSendmail.Subject = "Personnel Available For Work"
        poSendmail.Message = pStrEmailBody
        poSendmail.Send
        
        Set poSendmail = Nothing
        
    '
************************************************************************
End Function
 
I’m still getting 
 
User Defined Type Not Defined

And points me to this line:

Public poSendmail As vbSendMail.clsSendMail
 
I have selected ActiveX Controls from the Tools menu in Access and
registered it that way, is that correct ?
 
Paul Hartland






Message date : Mar 08 2004, 01:51 PM
>From : "Lonnie Johnson"
To : "Access Developers discussion and problem solving" 
Copy to : 
Subject : Re: [AccessD] vbSendMail - Using with Access
I've used it. It works with the vbSendMail.dll and the mswinsck.ocx. You
also have to set the reference to the vbSendMail.dll once it is registred.
The reference is called SMTP Send Mail for VB6.0 .

This is the module that calls it:

Option Compare Database
'Module Level Declaration (WithEvents optional but recommended) Public
poSendMail As vbSendMail.clsSendMail Public Function SMTPproc(strMailTo As
String, _ Optional strMailSubject As String, _ Optional strMailMsg As
String, _ Optional strMailAtt As String, _ Optional strMailCc As String)

Set poSendMail = New vbSendMail.clsSendMail

poSendMail.SMTPHost = "mail.kvc.org" poSendMail.UseAuthentication = True

poSendMail.Username = "emailUserName"
poSendMail.Password = "thepassword"

'poSendMail.RecipientDisplayName = ""
poSendMail.ReplyToAddress = "username at mail.com" 
poSendMail.CcRecipient = strMailCc
poSendMail.from = "username at mail.com" poSendMail.FromDisplayName = "KVC
System Attendant" poSendMail.Recipient = strMailTo poSendMail.Subject =
strMailSubject poSendMail.Message = strMailMsg

'****************
'For multiple file attachments, you need to separate each _ file name by a
semi colon (;) within the string quote. 'poSendMail.Attachment =
"c:\test2.txt;c:\test.txt" poSendMail.Attachment = strMailAtt
'****************

poSendMail.Send
Set poSendMail = Nothing
End Function




paul.hartland at fsmail.net wrote:
To all,

I have the VBSendMail.dll which I normally use to send via via Visual Basic
6.0 applications, however I need to try using it with Access XP now, I have
copied all my code over and registered the VBSendMail.dll, but when I
compile my code I get the error message :

User Defined Type Not Defined

And points me to this line:

Public poSendmail As vbSendMail.clsSendMail

What am I missing has anyone used VBSendMail.dll with Access before, I have
told people to try using it as I thought it should work without a hitch. 

Any help greatly appreciated.

Paul Hartland
Freeserve AnyTime - HALF PRICE for the first 3 months - Save £7.50 a month 
www.freeserve.com/anytime
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us









---------------------------------
Do you Yahoo!?
Yahoo! Search - Find what you’re looking for faster.
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
Freeserve AnyTime - HALF PRICE for the first 3 months - Save £7.50 a month 
www.freeserve.com/anytime
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com