Odeslání pošty s připojeným souborem

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hWnd As Long, _
   ByVal lpOperation As String, ByVal lpFile As String, _
   ByVal lpParameters As String, ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long

Na událost click tlačítka:

Private Sub Command1_Click()

   Call ShellExecute(0&, vbNullString,_
    "mailto:bozena@army.cz?subject=Nazdar&body=pokus&_
    attach=" + Chr(34) + "c:\imp.txt" + Chr(34), _
    vbNullString, vbNullString, vbNormalFocus)

End Sub

Základní věcí je, že pro parametr attach se musí soubor zadat v uvozovkách, tudíž je nutné tyto uvozovky včlenit do řetězce - děje se tak pomocí chr(34).

Zpět