need Object to send emails

[smig]

I'm looking for a cheap (Better free ) DLL or OCX or any other object to directly send emails from Access, not using OutLook.

I'm using VBSendMail.DLL for many years and love it but it does not support SSL authentication

 

[pr2-eugin]

Use Gmail maybe, Using CDO?

 

[smig]

This application can be used by different users with different Mail account and servers.

Is it possible to use Microsoft's CDO with any Mail server ?

 

[pr2-eugin]

Yes, you just need the settings for the mail servers. Gmail is available in the link I gave you. Hotmail should be available in MS Website somewhere. Do a Google search.

 

[smig]

Thanks

I'll try to learn how to use this

 

[smig]

Thank you
This seems to work

Do I need to install the cdosys.dll on the end user machine ?
Do I need to reference it in my App ?

Is there any reference to the CDO ? I mostly look for the error codes. I want to know if the mail was sent correctly.

 

[smig]

I found OstroSoft SMTP Component

I must be doing something wrong as it's not sending mails

The OSSMTP.dll is in the same folder as my application. It was registered in the system and referenced in the App.

I created a Public sub with this code:

On Error GoTo errHere

Dim oSMTP As OSSMTP.SMTPSession     [COLOR="SeaGreen"]' --- Also tried [B]Public WithEvents oSMTP As OSSMTP.SMTPSession[/B]
 in a CLS module[/COLOR]

Set oSMTP = New OSSMTP.SMTPSession     [COLOR="SeaGreen"]' --- Or should I use [B]Set oSMTP = CreateObject("OSSMTP.SMTPSession")[/B][/COLOR]

With oSMTP
    .Server = [COLOR="red"]My SMTP Server name[/COLOR]
    .UserName = [COLOR="red"]My Login name[/COLOR]
    .Password = [COLOR="red"]My Pass[/COLOR]
    .Port = "25"
    .Timeout = 60
    .UseSSL = False
    .AuthenticationType = 1     ' -- POP3
    .POPServer = [COLOR="Red"]My POP3 Server name[/COLOR]
End With

oSMTP.SendTo = "tal@fuchs-family.me"
oSMTP.MailFrom = "fuchs_t@bezeqint.net"
oSMTP.MessageSubject = "Test"
oSMTP.MessageText = "Test Test Test"
oSMTP.SendEMail

Set oSMTP = Nothing

GoTo ExitHere

Is there any way to follow what it's status and get some feedback ?

 

[vbaInet]

Hello smig,

I don't know anything about this OstroSoft add-in that you're talking about but one thing to point out is that the Port should be a number and not a string "25" (I would imagine).

Anyway, with regards CDO I've used it in the past to send emails via Gmail so it should work for you too.

Have a look at these links (using late binding):
https://support.microsoft.com/en-us/kb/286431
http://www.rondebruin.nl/win/s1/cdo.htm

For early binding and if you want Intellisense, the reference is Microsoft CDO for Windows 2000 Library