Send email

[HaveTrouble]

What's the best way to send email from VB 6.0 ? I tried CDO but it won't work if there is attachment with file size > 4M. I tried outlook but it works in 1 server but not the other. Below are the codes for outlook. It errors out in .send:


Set objMail = appOutlook.CreateItem(0)
objMail.To = sEmailTo
objMail.Subject = EmailSubject
objMail.Body = EmailBody

'= if has more than one file to attach, send the file in as
'= file1;file2;file3....
If Not IsMissing(sAttachmentPath) Then
glo_objs = Split(sAttachmentPath, ";")
For Each glo_obj In glo_objs
objMail.Attachments.Add glo_obj
Next
End If
objMail.Send

any suggestion ??

 

[vladk]

What data type for sAttachmentPath?

 

[strongm]

Which version of CDO?

 

[llmclaughlin]

Read this, works great for me

http://www.freevbcode.com/ShowCode.Asp?ID=109

 

[ratnek]

This works for me:

' Start Outlook.
' If it is already running, you'll use the same instance...
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

' Logon. Doesn't hurt if you are already running and logged on...
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon , , True

' Send a message to your new contact.
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
' Fill out & send message...
olMail.Subject = "My Subject"
olMail.Body = "My message"

' Add an attachment
olmail.Attachments.Add "my source"

olMail.To = strAddress
olMail.Send
olNs.Logoff
Set olNs = Nothing
Set olMail = Nothing