Public Sub SendMail(ByVal plngHwnd As Long) Dim strAddedText As String Dim strText As String If Len(Trim$(AddressTo)) > 0 Then strText = AddressTo End If If Len(Trim$(AddressCC)) > 0 Then strAddedText = strAddedText & "&CC=" & AddressCC End If If Len(Trim$(AddressBCC)) > 0 Then strAddedText = strAddedText & "&BCC=" & AddressBCC End If If Len(Trim$(Subject)) > 0 Then strAddedText = strAddedText & "&Subject=" & Subject End If If Len(Trim$(Body)) > 0 Then strAddedText = strAddedText & "&Body=" & Body End If If Len(Trim$(Attachments)) > 0 Then strAddedText = strAddedText & "&Attachment=" & Chr(34) & Attachments & Chr(34) End If strText = "mailto:" & strText ' clean the added elements If Len(strAddedText) > 0 Then ' there are added elements, replace the first ' ampersand with the question character Mid$(strAddedText, 1, 1) = "?" End If strText = strText & strAddedText If Len(strText) Then Call ShellExecute(plngHwnd, "open", strText, vbNullString, vbNullString, 1) End If End Sub>Hi Eric,