Need help in understanding Email Code

[recyan]

@June,
Thanks.
That works perfectly.
Now to tackle the multiple attachments part.

Thanks

[orange]

You might try a Split function to separate on the ";" and create an array.

[June7]

Where are the document paths coming from? If you don't have a table yet, as orange suggested can use the Split() function to build array for testing purpose, like:

Sub SendEmails()
x = SendHTMLEmail("to address", "test", "test", True, , Split("C:\My Docs\test1.txt;C:\My Docs\test2.txt", ";"))
End Sub

The function doesn't return anything to the calling procedure. If you make the Function a Sub then don't need the x=.

Call SendHTMLEmail("to address", "test", "test", True, , Split("C:\My Docs\test1.txt;C:\My Docs\test2.txt", ";"))

Note that I don't have space between the path strings.

[recyan]

@orange, @june;
Split() , How could I miss on that ? One of the function that goes hand in gloves with Arrays.
Am sure that will work.
Currently have a one to many tables; one table contains say the email id ( pk ) - the one side & the other table contains the actual physical paths ( on the local comp ) with email id as the FK ( the many side table ). I loop thro the records & get the attachments path.
Was wondering whether I can enter the path in the Form field using the File Browsing window instead of physically entering the path.

Thanks.

[June7]

Use FileDialog to grab file paths and put them wherever you want.

Dim fDialog As Office.FileDialog
Dim varFile As Variant, strFile
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.Title = "Select Files"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns False, the user clicked Cancel.
If .Show = True Then
   For Each varFile In .SelectedItems
      Debug.Print varFile
   Next
Else
   MsgBox "You clicked Cancel in the file dialog box."
End If
End With

[recyan]

Use FileDialog to grab file paths and put them wherever you want.

@June.
Thanks for the code. Will take me a couple of hours to test it & revert.
If I am not wrong, I should be calling this in the On Click event of the Form field in which the path is to be entered.

Thanks

[June7]

I've never used Click event of textbox but I suppose that would work.

Instead of the Debug.Print you would have code to populate the textbox. Could be looping structure to build a string of multiple selections from same folder.

[recyan]

Use FileDialog to grab file paths and put them wherever you want.

Dim fDialog As Office.FileDialog
Dim varFile As Variant, strFile
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.Title = "Select Files"
' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns False, the user clicked Cancel.
If .Show = True Then
   For Each varFile In .SelectedItems
      Debug.Print varFile
   Next
Else
   MsgBox "You clicked Cancel in the file dialog box."
End If
End With

Don't know why. Faced a bit of issue with the code. Errors kept on creeping up saying something about FileDialog, etc.
All the same the code gave me guidelines on what to look for.
Am currently using below ( Source : http://stackoverflow.com/questions/1...ry-as-a-string) :

Private Sub AttachmentLink_Click()
    Dim ofD As Object
    'Dim Fil


    Set ofD = Application.FileDialog(3)


    ofD.AllowMultiSelect = False


    If ofD.Show = False Then
        MsgBox "User Pressed Cancel"
    Else
        txtFilePath.Value = ofD.SelectedItems(1)
    End If
End Sub

Thanks