Здравствуйте, RedPank, Вы писали:
RP>Здравствуйте, uzzy, Вы писали:
U>>Здравствуйте, RedPank, Вы писали:
RP>>>СЧИТАЙТЕ МЕНЯ ПОЛНЫМ ИДИОТОМ !!!
RP>>>Напишите, пожалуйсто, кусок кода в обрамлении HTML, который будет работать ...
U>>...Пусть я буду идиотом, зато получу код нахаляву, "кучу экспиреенсов и левелап" и стану WhitePank 
U>>P.S. Извините, не удержался...
U>>P.P.S. Special thanks to "Гоблин".
RP>У меня достаточно знаний в других областях и на работе я без дела не сижу.
Да я не сомневаюсь...
RP>Что-бы я есче занимался изыскательскими работами в области HTML и Java — увольте!
Действительно то, второй день все никак получить решение не можем... кстати не java, а javascript
RP>Если можите подсказать — подскажите. А нет — промолчите.
Я буду кричать .... шутка, уважаемый если вы прикол не понимаете... то уж извините, А подсказать вам подсказали, Вам же осталось только все собрать воедино, а Вам то ли лень, то ли влом, то ли ... хотя Вы сами это уже признали.
RP>Поиском я тоже умею пользоваться. Но вот готового куска кода нигде не нашел. Все больше пустые рассуждения псевдопрограммистов.
А как же без них? скучно будет..
В общем вот полный код:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Glow Filter</title>
<meta name=vs_targetSchema content="HTML 4.0">
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="b1">
<!--
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Documents and Settings\Uzzy\Desktop\qqq.htm", olByValue, 1, "4th Quarter 1996 Results Chart"
myItem.Recipients.Add ("uzzy@yandex.ru")
myItem.Save
myItem.Send
-->
</script>
</head>
<body>
<table>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
<tr>
<td>1</td><td>2</td><td>3</td>
</tr>
</table>
<button id="b1">Отправить файл</button>
</body>
</html>
Правда:
1. При создании ActiveX-а сообщение службы безопасности IE
2. При добавлении Attachment-а — сообщение CБ Outlook-а
3. При добавлении Recipient-а — сообщение CБ Outlook-а (его можно избежать, поставив галочку одну)
4. Нажать YES
5. Открыть Outlook вручную запустить send-recieve, у меня не получилось
6. Письмо приходит без аттачмента, хотя в Outbox-e лежало с аттачментом
7. По-моему проще пользоваться самой программой Outlook
P.S. Мне понадобилось полтора часа на изучение VBScript-а и склеивания данных примеров.
P.P.S. Время было бы намного меньше если бы я не занимался работой ...
P.P.P.S. Извините, если задел (обидел, расстроил)
... << RSDN@Home 1.1 beta 2 >>
