Excel: Use Email without Outlook?

[hobbish]

Hi,
Wondering if is possible to check the neccessary boxes i want to generate email with a click on the button, without the use of outlook to send email? What VBA codes would i need to make it happen?

Thanks!

 

[DominicB]

Good morning hobbish

Welcome to the board!

You're probably better off using somebody else's hard work. Take a look here - it takes the pain out of what you want to do :

http://www.rondebruin.nl/mail/add-in.htm

HTH

DominicB

 

[hobbish]

Hey DominicB,
Thanks for your reply. However, i would require some coding and i manage to find one. But apparently it doesnt work. please kindly show me some light.

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

On Error GoTo cleanup
For Each cell In Sheets("Sheet3").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "yes" _
And LCase(cell.Offset(0, 2).Value) <> "send" Then
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Reminder"
.Body = "Dear " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Please be reminded of the outstanding loan"
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'Or use Display
End With
On Error GoTo 0

cell.Offset(0, 2).Value = "send"
Set OutMail = Nothing
End If
Next cell

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub