Здрасте! Спамером работаю недавно, поэтому прошу помощи. Сбацал макрос (отдельное спасибо RAN за помощь - без него не стал бы спамером, так и остался бы неизвестно кем) рассылки с помощью Excel - Outlook. Поскольку я начинающий и сразу не смог настроить Outlook 2013, воспользовался вот этой подсказкой для яндекс почты все пошло нормально. Попробовал на другом компе, с другим провайдером и пришлось установить Outlook 2003, ни чего другое не прокатило, настроил также. Не идет не фига, письма попадают в Outlook, но не отправляются, подозреваю провайдера, но не уверен. Может в 2003 есть какие-то свои нюансы? Подскажите пожалуйста, очень хочется стать настоящим спамером.
запускается после проверки всякими другими макросами и формулами
Код
Sub рассылка_2()
Application.ScreenUpdating = 0
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail
'==============================================================================
'адрес получателя
.To = Cells(7, 11)
'==============================================================================
'текст письма
.Body = Cells(7, 14)
'==============================================================================
'тема письма
.Subject = Cells(2, 2)
'==============================================================================
'файл вложение (если есть - прикладываем)
If [b4] <> "" Then
.Attachments.Add Cells(33, 11).Value
End If
'==============================================================================
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub