Sending automatic emails through unknown email program

[ycim]

I have an smallapplication that gets distributed to clients. I have some code to automatically send through Outlook, which works fabulously (I found it on another thread here!). However, what if my client does not use Outlook as their primary email? Here is the code that I currently use. How can it be modified to accomodate for *unknown* email programs?

Dim strWAEmail, strWABody, strWASubject As String
    Dim objOutlook As Outlook.Application
    Dim objEmail As Outlook.MailItem
    
    Set objOutlook = CreateObject("Outlook.application")
    Set objEmail = objOutlook.CreateItem(olMailItem)
    
    strWAEmail = "recipient name goes here"
    strWASubject = "Subject of Email"
    strWABody = "Body of email goes here"
    
    With objEmail
    .To = strWAEmail
    .SentOnBehalfOfName = "Team.EmailAddress@work.com"
    .Subject = strWASubject
    .Body = strWABody
    .Importance = olImportanceHigh
    .Send
    End With
    
    Set objEmail = Nothing
    
    MsgBox "message sent"

 

[Remou]

Have you looked at SendObject?

 

[ycim]

Yes...but then I am back to receiving the annoying "trying to send on behalf..." message which I am trying to avoid!

This code does not seem to bring up that message at all. (which is a whole different thread!)
thread705-1343702

 

[Remou]

I do not think you can resolve both problems. If you are distributing to an unknown site with an unknown email program, I think the users will want to know that an email is being sent.

 

[ycim]

How about if I have the system detect Outlook as the default mail editor? If it is not, then I do not allow the emailing. If it is, then all is good.

The problem is that I don't know how to automatically detect the default email program.

Any suggestions?

 

[JoeAtWork]

How about a solution that doesn't rely on the user's email program?
I have successfully used a freeware DLL called vbSendMail.dll in several of my VB apps. The code is freely distributed. You need to set a few properties, the most important being the name of an SMTP server the user has access to.

I don't have a link handy, but should be easy enough to find with Google.

 

[ycim]

Sweet! I will try that and let you know how it goes! Thanks for the tip!

 

[PaulNeubauer]

Thanks, guys. I am currently looking for a solution to the same sort of problem.

I just downloaded the vbSendMail package and tried it to see what I could do. Unfortunately, the first thing I got was a pop-up saying

Failed to load control "winsock" from MSWINSCK.OCX. Your version of MSWINSCK.OCX may be outdated. Make sure you are using the version of the control that was provided with your application."

followed by another, similar dialog indicating "Run-time error '372'"

Interestingly, the copy of vbSendMail.dll in vbSendMail.zip seems to have been created in 2003 and the copy of MSWINSCK.OCX in my c:\windows\system32 directory is dated 12/12/1996 even though I have Win XP SP2 and Visual Studio 2005. Any thoughts on where I might look to find the correct version of MSWINSCK.OCX?

Thanks,
Paul

 

[PHV]

Why not simply use CDO ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ycim]

Can you translate? What is CDO?

 

[JoeAtWork]

PHV - unless CDO has changed over the years since I last used it, isn't it used in a Microsoft Exchange environment? The OP's original problem is that he needs to be able to send emails regardless of whether the user has Outlook installed. And if he doesn't have Outlook, chances are it's not a MS Exchange environment.

 

[PHV]

CDO may be used if you know the address of your smtp provider.

 

[PHV]

A starting point:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "your subject here"
objMessage.Sender = "sendername@somedomain.com"
objMessage.To = "somename@domain.com"
objMessage.TextBody = "your body text here"
With objMessage.Configuration.Fields
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "smtp.someserver.com"
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
.Update
End With
objMessage.Send

 

[JoeAtWork]

Ah, so you no longer need to create a Session object?

 

[PHV]

I even found a FAQ:
faq181-5705

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ycim]

Thanks for the discussion on CDO. I didn't even know about this. PHV, the code looks great and I can't wait to try it out.

Thanks to everyone for your help!