Есть следующий вопрос:
Нужно из Excel 2010 макросом создавать письмо Outlook, в которое автоматом прикреплялся бы иной файл Excel 2010, размещенный (например) на рабочем столе компьютера. Т.е условно письмо отправляем из файла «А», а прикрепляться к письму должен файл «В».
В интернете нашел следующий макрос, но почему-то файл не цепляется к письму.
В конкретно данном примере есть строка «sAttachment = "C:/Temp/Книга1.xls"», указывающая на месторасположение файла, подлежащего прикреплению к письму.
Я указываю там тот путь, по которому расположен мой файл на компьютере. Например «C:\Users\Алексей\Desktop\Excel таблицы для тренировки\города филиалов».
Но почему файл не прикрепляется…… В чем может быть проблема?
И чуть не забыл…. Как сделать так, чтобы письмо сразу не уходило (не отправлялось)….. т.е. нужно, чтобы оно создалось, файл прикрепился, но кнопку «отправить» я нажимал бы сам ручным методом?
Заранее благодарен!
| Код |
|---|
Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
Application.ScreenUpdating = False
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
Err.Clear
If objOutlookApp Is Nothing Then
Set objOutlookApp = CreateObject("Outlook.Application")
End If
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0)
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
sTo = Range("D3")
sSubject = "Вам внесена новая запись в карту бонусов и ошибок: " + Range("C3")
sBody = "Формулировка бонуса/ошибки:" + Range("F3").Value 'необходимо, чтобы значение ячейки Range("F5") были с новой строки в письме,как это сделать ?
sAttachment = Range("F3").Value
With objMail
.To = sTo
.CC = ""
.BCC = ""
.Subject = sSubject
.body = sBody
.HTMLBody = sBody
.Attachments.Add sAttachment
.Display
End With
Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
End Sub |
.
