how to use t his fnsafesendemail function to mail report in html format

**okl** · 02-05-2010, 08:47 AM

Hi,

I trying to use below function to mail report like SendObject in table output as html.

How should i use it ? Tested the FnTestSafeSendEmail() , it could send out the mail.

Code:

Option Explicit

' ACCESS VBA MODULE: Send E-mail without Security Warning
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com)
' Written 07/05/2005
' Last updated v1.3 - 11/11/2005
'
' Please read the full tutorial & code here:
' http://www.everythingaccess.com/tutorials.asp?ID=Outlook-Send-E-mail-without-Security-Warning
'
' Please leave the copyright notices in place - Thank you.

'This is a test function - replace the e-mail addresses with your own before executing!!
'(CC/BCC can be blank strings, attachments string is optional)

Sub FnTestSafeSendEmail()
    Dim blnSuccessful As Boolean
    Dim strHTML As String
        
    'strHTML = "<html>" & _
     '          "<body>" & _
      '         "My <b><i>HTML</i></b> message text!" & _
       '        "</body>" & _
        '       "</html>"
   ' blnSuccessful = FnSafeSendEmail("ongkokleong@gmail.com", _
                                    "My Message Subject", _
                                    strHTML)
    
    'A more complex example...
    blnSuccessful = FnSafeSendEmail("ongkokleong@gmail.com;", _
                                         "BT Direct Disc/Load Alert", _
                                         strHTML, _
                                         "C:\Users\okl\Desktop\test.xls;", _
                                         "", _
                                         "")
    If blnSuccessful Then
    
        MsgBox "E-mail message sent successfully!"
        
    Else
    
        MsgBox "Failed to send e-mail!"
    
    End If

End Sub


'This is the procedure that calls the exposed Outlook VBA function...
Public Function FnSafeSendEmail(strTo As String, _
                    strSubject As String, _
                    strMessageBody As String, _
                    Optional strAttachmentPaths As String, _
                    Optional strCC As String, _
                    Optional strBCC As String) As Boolean

    Dim objOutlook As Object ' Note: Must be late-binding.
    Dim objNameSpace As Object
    Dim objExplorer As Object
    Dim blnSuccessful As Boolean
    Dim blnNewInstance As Boolean
    
    'Is an instance of Outlook already open that we can bind to?
    On Error Resume Next
    Set objOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0
    
    If objOutlook Is Nothing Then
    
        'Outlook isn't already running - create a new instance...
        Set objOutlook = CreateObject("Outlook.Application")
        blnNewInstance = True
        'We need to instantiate the Visual Basic environment... (messy)
        Set objNameSpace = objOutlook.GetNamespace("MAPI")
        Set objExplorer = objOutlook.Explorers.Add(objNameSpace.Folders(1), 0)
        objExplorer.CommandBars.FindControl(, 1695).Execute
                
        objExplorer.Close
                
        Set objNameSpace = Nothing
        Set objExplorer = Nothing
        
    End If

    blnSuccessful = objOutlook.FnSendMailSafe(strTo, strCC, strBCC, _
                                                strSubject, strMessageBody, _
                                                strAttachmentPaths)
                                
    If blnNewInstance = True Then objOutlook.Quit
    Set objOutlook = Nothing
    
    FnSafeSendEmail = blnSuccessful
    
End Function

Thread: how to use t his fnsafesendemail function to mail report in html format

Thread Tools

Rate This Thread

Display

how to use t his fnsafesendemail function to mail report in html format

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions