Подскажите пожалуйста (желательно код программы с пояснениями) как написать макрос для отправки почты? Лучше чтобы прога была написана через форму.
Нужно чтобы можно было выберать файл для отправки любой, с любым расширением и что бы адреса(mail) брались из столбца "A". И еще нужно что бы при этом использовался The Bat, а не Outlook.
Вот мой пример проги только он для Outlook.
// добавление файла
Private Sub btAttachFile_Click()
'Проверяем добален ли файл или нет
If strAttachFile = Empty Then
'Объявляем строковую переменную для назначения типов файлов
Dim strFileType As String
'Если возникнет ошибка, т.е пользователь нажел на клавишу Cancel,
'отправиться к обработчику ошибки - ErrorHandler
On Error GoTo ErrorHandler
'Обеспечиваем генерацию ощибки
CommonDialog1.CancelError = True
'Инициализируем строковую переменную strFileType
strFileType = "All Files (*.*)|*.*|"
'Присваиваем ее свойству Filter
CommonDialog1.Filter = strFileType
'Устанавливаем необходимый индекс
CommonDialog1.FilterIndex = 1
'Присваиваем начальную директорию своству InitDir
CommonDialog1.InitDir = "C:\"
'Обеспечиваем защиту от неправильного введенного файла или дериктории, а так же скрываем флажек Read Only
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
'Пишем заголовок
CommonDialog1.DialogTitle = "Добавить файл ху.."
'Вызываем диалог Open
CommonDialog1.Action = 1
'***********
'Здесь распологается Ваш код.(не забудте, что путь к выбранному файлу Вы считываете из свойства FileName)
strAttachFile = CommonDialog1.Filename
Picture1.Visible = True
Text.Visible = True
'**********
Else
MsgBox "Более одного файла добавлять нельзя.", vbInformation, Me.Caption

End If

Exit Sub
'Обработка перехватываемой ощибки
ErrorHandler:
If Err.Number = 32755 Then
Exit Sub
End If
End Sub
// выход
Private Sub btcancel_Click()
End
End Sub
// отправка письма
Private Sub sendMailll_Click()
Dim adrBook As Outlook.AddressList
Dim adrEntry As Outlook.AddressEntry
Dim newMessage As Outlook.MailItem
Dim newRecipient As Outlook.Recipient
Dim strAddress As String
Dim myOutlookApp As Outlook.Application
Dim MessageSubject As String
Dim MessageBody As String

strAttachFile = CommonDialog1.Filename
MessageSubject = "тема письма"
MessageBody = "strAttachFile"
strAddress = "Columns(1)"

Set myOutlookApp = New Outlook.Application

Set newMessage = myOutlookApp.CreateItem(olMailItem)
newMessage.Subject = MessageSubject
newMessage.Body = MessageBody

Set newRecipient = newMessage.Recipients.Add(strAddress)

newMessage.Send

End Sub
Всем кто поможет, большое спасибо.
Предлагайте ваши варианты.

Модератор: Используйте теги для подсветки кода!

Usaj api - oni opisany v mapi32.txt. Zabej na eti vse COM'ovskie objekty, vse ravno fajly za soboj taskat pridetsya.
Добавлено @ 15:44
простите забыл про транслит