Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Рассылка из Excel c Outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Рассылка из Excel c Outlook (Макросы/Sub)
Рассылка из Excel c Outlook
ant6729 Дата: Пятница, 10.05.2019, 00:22 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Всем привет, хочу разослать письма из списка емейлов в условной первой колонке

Выдает ошибку

Run-time error '-936115958(c834010a)'
Automation error

Ошибка не гуглиться

Подскажите, пожалуйста, как можно ее обойти?
Возможно, я что - то упустил.
Код в приложении
Спасибо.
К сообщению приложен файл: 9324766.xlsm (21.1 Kb)


Сообщение отредактировал ant6729 - Пятница, 10.05.2019, 00:24
 
Ответить
СообщениеВсем привет, хочу разослать письма из списка емейлов в условной первой колонке

Выдает ошибку

Run-time error '-936115958(c834010a)'
Automation error

Ошибка не гуглиться

Подскажите, пожалуйста, как можно ее обойти?
Возможно, я что - то упустил.
Код в приложении
Спасибо.

Автор - ant6729
Дата добавления - 10.05.2019 в 00:22
ant6729 Дата: Пятница, 10.05.2019, 01:17 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Всем спасибо, все ок

[vba]
Код
Sub SendReportFiles()

    Dim appOutLook As New Outlook.Application
    Dim oMail As Outlook.MailItem
    Dim fsoFile As File, fsoFolder As Folder
    Dim ReportFile, i, nm, km, k
    Dim dict As Scripting.Dictionary
    Dim fso As New FileSystemObject
    Dim Spath, StrFile, sm, sl
    Dim lr As Integer

    Spath = Application.ThisWorkbook.Path & "\"
    Set fsoFolder = fso.GetFolder(Spath)
    
    Set dict = New Scripting.Dictionary
    lr = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
    

    For i = 1 To lr
    
        dict.Add Cells(i, 1).Value, 0
        
    Next i
        
    For i = 1 To dict.Count
    Set oMail = appOutLook.CreateItem(olMailItem)

            With oMail
            
                .To = dict.Keys(i)
                .Cc = ""
                .Subject = "mmm" & Format(Now, "dd.mm.yyyy") & ""
                sm = "sss" & Format(Now, "dd.mm.yyyy")
                sl = "Tel.: +" & vbNewLine & _
                "sssssss"
                .Body = sm & vbNewLine & sl
                StrFile = Dir(Spath & "*.docx*")
    
                            .Attachments.Add Spath & StrFile
                            StrFile = Dir
                .Send
                
            Set oMail = Nothing
            End With
            
    Next i

End Sub
[/vba]
 
Ответить
СообщениеВсем спасибо, все ок

[vba]
Код
Sub SendReportFiles()

    Dim appOutLook As New Outlook.Application
    Dim oMail As Outlook.MailItem
    Dim fsoFile As File, fsoFolder As Folder
    Dim ReportFile, i, nm, km, k
    Dim dict As Scripting.Dictionary
    Dim fso As New FileSystemObject
    Dim Spath, StrFile, sm, sl
    Dim lr As Integer

    Spath = Application.ThisWorkbook.Path & "\"
    Set fsoFolder = fso.GetFolder(Spath)
    
    Set dict = New Scripting.Dictionary
    lr = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
    

    For i = 1 To lr
    
        dict.Add Cells(i, 1).Value, 0
        
    Next i
        
    For i = 1 To dict.Count
    Set oMail = appOutLook.CreateItem(olMailItem)

            With oMail
            
                .To = dict.Keys(i)
                .Cc = ""
                .Subject = "mmm" & Format(Now, "dd.mm.yyyy") & ""
                sm = "sss" & Format(Now, "dd.mm.yyyy")
                sl = "Tel.: +" & vbNewLine & _
                "sssssss"
                .Body = sm & vbNewLine & sl
                StrFile = Dir(Spath & "*.docx*")
    
                            .Attachments.Add Spath & StrFile
                            StrFile = Dir
                .Send
                
            Set oMail = Nothing
            End With
            
    Next i

End Sub
[/vba]

Автор - ant6729
Дата добавления - 10.05.2019 в 01:17
ant6729 Дата: Пятница, 10.05.2019, 01:59 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Теперь другой вопрос...
У меня 850 исходящих в Outlook
Сам Outlook подключен на мою обычную почту и с ней получается, синхронизируется

Можно ли как-то пропихнуть теперь из исходящих намеченным адресатам все эти письма?
 
Ответить
СообщениеТеперь другой вопрос...
У меня 850 исходящих в Outlook
Сам Outlook подключен на мою обычную почту и с ней получается, синхронизируется

Можно ли как-то пропихнуть теперь из исходящих намеченным адресатам все эти письма?

Автор - ant6729
Дата добавления - 10.05.2019 в 01:59
ant6729 Дата: Пятница, 10.05.2019, 03:39 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
все ок
 
Ответить
Сообщениевсе ок

Автор - ant6729
Дата добавления - 10.05.2019 в 03:39
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Outlook » Рассылка из Excel c Outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!