Добрый день!
Возникла следующая проблема при отправке автоматических писем из Excel : появляется уведомление об автоматической отправке писем, и при этом иногда активируется приложение Outlook.
Как сделать так, чтобы это уведомление всегда появлялось на фоне Excel-файла, из которого оно вызвано?
Сейчас функция выглядит так:
Function ReOpenMailFD()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim letsh As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set letsh = ThisWorkbook.Worksheets("Letters")
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = letsh.Range("е5").Value
.Subject = letsh.Range("е2").Value & rNum
.body = letsh.Range("е3").Value & " " & rNum & ", компания " & rComp & ", " & letsh.Range("е4").Value
.send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Function
Возникла следующая проблема при отправке автоматических писем из Excel : появляется уведомление об автоматической отправке писем, и при этом иногда активируется приложение Outlook.
Как сделать так, чтобы это уведомление всегда появлялось на фоне Excel-файла, из которого оно вызвано?
Сейчас функция выглядит так:
Function ReOpenMailFD()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim letsh As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set letsh = ThisWorkbook.Worksheets("Letters")
Set OutApp = CreateObject("Outlook.Application")
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = letsh.Range("е5").Value
.Subject = letsh.Range("е2").Value & rNum
.body = letsh.Range("е3").Value & " " & rNum & ", компания " & rComp & ", " & letsh.Range("е4").Value
.send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Function