Отправка больших вложений Microsoft Outlook 2010

[darkman_]

Добрый день!
Проблема в следующем необходимо отправлять адресату фотографии исключительно через Microsoft Outlook 2010, фотографии большие, уменьшать или архивировать нельзя. Очень муторно создавать кучу писем по одной фотографии. Есть какой нибудь способ автоматизировать этот процесс?

[yurfed]

исключительно через Microsoft Outlook 2010 »А почему так категорично?
Отправка больших по размеру файлов другим пользователям (http://office.microsoft.com/ru-ru/outlook-help/HA101961699.aspx)

[darkman_]

К сожалению это требование получателя, А почему так категорично?
Отправка больших по размеру файлов другим пользователям », никакие из перечисленных способов не годятся. На данный момент сижу и пишу 15 писем подряд с прикреплённым одним файлом - фотографией. В идеале я бы выделял все фотографии нажимал бы отправить, вводил адрес и тему, и остальные автоматом отправлялись бы на тот же адрес и с той же темой. Если такое возможно...

[a_axe]

darkman_, по поводу ужатия фотографий без изменения разрешения и т.п. посмотрите на www.jpegmini.com (http://www.jpegmini.com/), правда программа платная. Лично я обычно не вижу разницы между оригиналом и ужатой фотографией по качеству, и тем более по свойствам (за исключением размера), пользуюсь наверное полгода. Но тут дело индивидуальное.
А по сути тут (http://www.excel-vba.ru/chto-umeet-excel/kak-otpravit-pismo-iz-excel/) приведена программа на VBA, правда для отправки одного файла. Работает для Excel. По мне проще руками отправлять =)
Outlook настраивать у меня желания нет, подправил на коленке код, предполагается, что в столбце "А" вы должны указать полное имя каждого файла (по одному файлу на ячейку) - полные имена легко копируются например в Total commander, в ячейке "В1" вы должны указать почту, на которую будут отсылаться письма.
не факт что это корректно работает, не проверял:

Option Explicit

Sub Send_Mail()
Dim objOutlookApp As Object, objMail As Object
Dim sTo As String, sSubject As String, sBody As String, sAttachment As String, i As Integer

Application.ScreenUpdating = False
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
objOutlookApp.Session.Logon
i = 1
Do While ActiveSheet.Cells(i, 1).Value <> ""
Set objMail = objOutlookApp.CreateItem(0)

If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub

sTo = Range("B1").Value 'Адрес почты
sSubject = "Фотографии"
sBody = "Добрый день, высылаю Вам фотографии"
sAttachment = ActiveSheet.Cells(i, 1).Value


With objMail
.To = sTo
.Subject = sSubject
.Body = sBody
.Attachments.Add sAttachment
.Send
End With
Set objMail = Nothing
i = i + 1
Loop
exit_:
Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
End Sub


PS есть такое подозрение, что в VBA-редакторе в меню Tools-> References нужно найти Outlook и выставить напротив нее галочку.

[yurfed]

исключительно через Microsoft Outlook 2010 »Почему только 2010? Другими совсем что ли ни как? Какая разница что использовать, не пойму.

[Iska]

Как я понимаю, речь примерно об этом: Как объединить в Outlook 2010 части сообщения, разбитые при отправке - Microsoft Community (http://answers.microsoft.com/ru-ru/office/forum/office_2010-outlook/%D0%BA%D0%B0%D0%BA/e0e88688-116f-4a89-84e9-983dcd857df1)?

[darkman_]

Нет, наверное не совсем понятно описал ситуацию. Сжимать нельзя, теряются детели и шум появляется, кроме того получатель это заранее оговорил и ужатые не примет, будет просить прислать оригиналы. Пробовали уже. Договорились одна фотография - одно письмо, но очень муторно и очень много времени занимает отправка 70 писем, вот я и подумал может кто подскажет как этот процесс автоматизировать.

[Iska]

darkman_, Вы так и не сказали — почему именно Microsoft Outlook 2010? Что значит — требование получателя? Я лично не вижу никакой разницы, чем именно отправлять. Выясните — откуда оно взялось. Отправьте ту же фотографию посредством Outlook Express, Windows Mail Live, Thunderbird, blat.exe или sendmail.exe. Пусть объяснит — чем именно его не устраивает.

[darkman_]

Такая политика компании использовать только его