Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
Вот новый адрес: http://hiprog.com/index.php?option=com_content&task=view&id=449
что бы отправить более одного файла надо переписывать функцию.

функция должна выглядеть так:

Public Sub SendEMail(strEmailAddress As String, strSubject As String, strBody As String, ParamArray varFileName() As Variant)   Dim Junk As Long 'Dim strEmailAddress As String   Dim OESession As Long   Dim OEmessage As MAPIMessage   Dim OERecipients() As MapiRecip   Dim OEFiles() As MapiFile   Dim OERecipientCount As Long   Dim OEFileCount As Long   ReDim OERecipients(0 To 100)   ReDim OEFiles(0 To 10)   Dim I As Integer ' Login to Outlook Express    MAPILogon 0, "", "", MAPI_NEW_SESSION, 0, OESession ' Set subject and message text    OEmessage.NoteText = strBody    OEmessage.Subject = strSubject ' Set recipient address (assuming only one)    OERecipients(0).RecipClass = MAPI_TO    OERecipients(0).Address = StrConv("smtp:" & strEmailAddress, vbFromUnicode)    OERecipientCount = 1    ReDim Preserve OERecipients(0 To OERecipientCount - 1)    OEmessage.RecipCount = OERecipientCount    OEmessage.Recipients = VarPtr(OERecipients(0))   For I = 0 To UBound(varFileName())          OEFiles(I).PathName = StrConv(varFileName(I), vbFromUnicode)   Next I    OEFileCount = UBound(varFileName())    ReDim Preserve OEFiles(0 To OEFileCount)    OEmessage.FileCount = OEFileCount + 1    OEmessage.Files = VarPtr(OEFiles(0)) ' Send the message    Junk = MAPISendMail(0, 0, OEmessage, 0, 0)   If Junk <> 0 Then MsgBox "OE SendMail failure (" & Format$(Junk) & ")" End Sub

вызывать так:

Call SendEMail("os2mor@mail22.ru", "Привет", "Высылаю файлы", "c:\1.txt", "c:\2.xls")

остальной код без изменения