tolikt,

Та же проблема, только не Outlook Express, а обычный Outlook, там такой галки нету :(
Помогите, пожалуйста, кто может!
Вот код на VB:

Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim I As Integer
I = 1
Do Until Cells(I, 1).Value = ""
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.SentOnBehalfOfName = """HelpDesk"" <helpdesk@mosenergosbyt.ru>;"
.To = Cells(I, 9).Value
.Subject = Cells(I, 1).Value
.Body = Cells(I, 3).Value + vbCrLf + Cells(I, 4).Value
.Send
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
I = I + 1
Loop
End Sub