ОАЗВ??? Проверим ?

Господа проверим, знает оак все или не знает ?
Вообщем задача такая, имеем некий отчет в Ексель, на основе данного отчета необходимо сформировать письма.
Хотелось бы в Бат но там выдается ошибка про определение параметров по умолчанию, поэтому пока идем по пути наименьшего сопротивления и формируем письма в оутлоке.
Письма формируются и активируется форма письма, с адресом, темой и телом письма готового к отправке.
Но хотелось что бы данные письма сразу по умолчанию ложить в исходящие и потом нажатием кнопки их отправлять адресатам.
Скрипт такой
Sub Îòïðàâêà()
For i = 2 To 500
s = 1
k = Trim(Worksheets("Лист1").Cells(i, 6))
skk = Trim(Worksheets("Лист1").Cells(i, 4))
If k = "" Then
Exit For
End If
If skk <> "" Then
Email = skk + "@post.ru"
Else
s = 0
End If
If s <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=Range("R2"), Address:= _
"mailto:" + Email + "?subject=" + Trim(Worksheets("Лист1").Cells(i, 6)) + "&body=" +текст письма

ActiveSheet.Hyperlinks(1).Follow NewWindow:=False
ActiveSheet.Hyperlinks(1).Delete
Worksheets("Лист1").Rows(i).Delete
i = i - 1
End If
Next

ActiveWorkbook.SaveAs Filename:=Format(Date, "d mmm yyyy")

End Sub

помогите кто чем может
ActiveSheet.Hyperlinks.Add Anchor

засада где то в данной функции пока не могу разобраться

Ошибка в ДНК

пошла топиться 8(

Ошибка в РНК

Яростно мониторю тему.

Моск закипел и сломался. Заплакала. :weep:

1250 рублей в час.

очередной сисястый админ пытается поумничать

кто здесь?? :niceread:

Ошибка в ТНК
Ошибка в ПДД
Ошибка в РПЦ
Ошибка в ПКТ

да забыл, флуд приветсвуется ,но в меру.

хорошо, што я нерусская и можна отмазаца :-D

Я наверное скажу какую-нибудь глупость, но у вас в первой строчке программы кракозябры. Наверное причина в них. :-o

Спамер!

Да кстате спамеры идут в Опу!

да нет, не в них. Скрипт отрабатывает на ура. Проблема в том ,что он открывает почтовое сообщение готовое к отправке, а желательно ,что бы это почтовое сообщение оказалась в папке исходящие.

кстати подкиньте прогу для рассылки спама ,может удастся поднастроить под собственную задачу

накрывай поляну в троекурове, поможем без проблем.

верните Био 1

Поскольку эта хрень тити не генерит - не помогут тут! :-)

С Уважением KROT.

ну там в параметрах функции можно вложения прикреплять, могу добавить строчку и особо желающим ежедневно рассылать
:lol:

а у тебя есть генерилка? и ты скрываешь это от оака? :-D

1. Начните с того, что используйте только явным образром задекларированные переменные, несмотря на то, что VB этого не требует

2. На VB for A не писал давно, но думаю что засада тут:
If skk <> "" Then
Email = skk + "@post.ru"
Else
s = 0
End If

Если skk == NULL, то перейдем к Email = skk + "@post.ru", а сложение с NULL даст NULL.
Отсюда уползет все остльное.

Лучше будет если приведете весю информацию об ошибке.

а маилту не помещает

мне надо было с атачментами слать..я на дельфях писал

здесь неправильно!