Access -> .txt -> mail

Code:
DoCmd.TransferText acExportDelim, "Export CSV", "tblTemp", "C:\Cenovnici\" & [Naziv] & ".csv", True

Code:
Function Ispis() As String
Dim rst As New ADODB.Recordset
 
    
   rst.Open "SELECT email FROM tblAdrese", CurrentProject.Connection, adOpenStatic, adLockReadOnly
    If rst.RecordCount > 0 Then Ispis = rst.GetString(adClipString, , , "; ")

    rst.Close

    Ispis = Left(Ispis, Len(Ispis) - 1)
    

End Function

Code:

Private Sub SendMail_Click()
On Error GoTo Err_SendMail_Click

DoCmd.SendObject _
    acSendTable, _
    "Cenovnici", _
    acFormatTXT, _
    Ispis(), _
    , _
    , _
    "Naslov poruke", _
    "Tekst u telu poruke.", _
    True

Exit_Err_SendMail_Click:
    Exit Sub

Err_SendMail_Click:
    MsgBox "Poruka nije poslata!", vbInformation, "Obaveštenje"
    Resume Exit_Err_SendMail_Click

Code:

Public strAttachment(1 To 100) As String

Public Function SendOutlookMessage( _
    bolSendSave As Boolean, _
    strEmailAddress As String, _
    strEmailCCAddress As String, _
    strSubject As String, _
    strMessage As String, _
    blnDisplayMessage As Boolean, _
    Optional strEmailBCCAddress As String)

'This subroutine sends an e-mail message through
'MS Outlook. If the "blnDisplayMessage" parm is
'set to "False", the message is placed in the
'Outlook Outbox. "True" displays the message, and
'user will have to click "Send" to send it.
    
Dim objApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecipient As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim blnOutlookInitiallyOpen As Boolean
Dim strProcName As String
Dim rst As DAO.Recordset
Dim strFile As String
Dim x As Integer

x = 1

'On Error Resume Next
strProcName = "SendOutlookMessage"

blnOutlookInitiallyOpen = True
'Set objApp = GetObject(, "Outlook.Application")
Set objApp = CreateObject("Outlook.Application")

If Err <> 0 Then Beep: _
    MsgBox "Error in " & strProcName & " (1): " _
        & Err.Number & " - " & Err.Description: _
    Err.Clear: _
    GoTo Exit_Section

'Create the message
Set objOutlookMsg = objApp.CreateItem(olMailItem)
If Err <> 0 Then Beep: _
    MsgBox "Error in " & strProcName & " (2): " _
        & Err.Number & " - " & Err.Description: _
    Err.Clear: _
    GoTo Exit_Section
    
With objOutlookMsg
    Set objOutlookRecipient = .Recipients.Add(strEmailAddress)
    objOutlookRecipient.Type = olTo
    If strEmailCCAddress = "" Then
    Else
        Set objOutlookRecipient = .Recipients.Add(strEmailCCAddress)
        objOutlookRecipient.Type = olCC
    End If
    If strEmailBCCAddress = "" Then
    Else
        Set objOutlookRecipient = .Recipients.Add(strEmailBCCAddress)
        objOutlookRecipient.Type = olBCC
    End If
    .Subject = strSubject
    .HTMLBody = "<html><body> " & strMessage & " </body></html>"
    '.Body = strMessage

    '* Add attachments
    'Set rst = CurrentDb.OpenRecordset(strTable)
    'If Not rst.EOF Then
    '    rst.MoveFirst
    '    Do While Not rst.EOF
    '        strFile = rst.Fields(0)
    '        If Len(strFile) > 0 Then
    Do While strAttachment(x) <> ""
        Set objOutlookAttach = .Attachments.Add(strAttachment(x))
        x = x + 1
    Loop
                
    '        End If
    '        rst.MoveNext
    '    Loop
    'End If
    Set rst = Nothing

    If blnDisplayMessage Then
        .Display
    Else
        '* Send message by putting it in the Outbox
        If bolSendSave = True Then
            .Send
        Else
           .Save
        End If
    End If
End With
    
If Err <> 0 Then Beep: _
    MsgBox "Error in " & strProcName & " (99): " _
        & Err.Number & " - " & Err.Description: _
    Err.Clear: _
    GoTo Exit_Section
    
Exit_Section:
    On Error Resume Next
    If Not blnOutlookInitiallyOpen Then
       objApp.Quit
    End If
    Set objApp = Nothing
    Set objOutlookMsg = Nothing
    Set objOutlookAttach = Nothing
    Set objOutlookRecipient = Nothing
    On Error GoTo 0
End Function