Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Интернет/Почта/Сеть  
     
  Создадим письмо с вложением и поместим его в TheBat!  
  Ставим Dir1, Text5(0).Text, Text5(1).Text, Text3.Text
Prog = "C:\Program Files\The Bat!\thebat.exe" '' в роде бы у ламера '' всегда TheBat лежит там If Dir$(Prog$, vbNormal) = "" Then '' если нет (не ламер) On Error Goto PRNT Dir1.Path = "C:\Program Files\" '' стандартная прогр. папа For e = 0 To Dir1.ListCount - 1 '' шерстим все папки в Pr.Files '' если файл найден If Dir(Dir1.List(e) & "\thebat.exe", vbNormal) <> "" Then '' фильтр на признак слеша (есть/нет) приготавливаем полный путь для '' запуска батона If Right$(Dir1.List(e), 1) = "\" Then Prog = Dir1.List(e) + "thebat.exe" Else Prog = Dir1.List(e) + "\thebat.exe" '' идем на вызов бата GoTo GoLetter Else '' смотрим и видим, что все папки прошерстили, файл бат не найден, '' ну и всё, на что способен этот код... гуляй вася... If e = Dir1.ListCount - 1 Then If MsgBox("Программа TheBat! не найдена. Если все-таки почта установлена создать ли пустой бланк письма?", vbCritical + vbYesNo) = vbYes Then ShellProgramm ("mailto:" & Text5(0).Text & "?Subject=" & Text5(1).Text) Exit Sub End If End If Next e Else GoLetter: '' ну теперь самое сладкое и непостижимое для многих! '' Chr$(34) - это ковычки, они необходимы при использовании пробелов в '' команде. '' Prog - команда бата "c:\Program Files\The Batonchik\Thebat.exe" например. '' ну и далее всякие ключи... '' Text5(0).Text - адрес получателя '' Text5(1).Text - тема письма '' Text3.Text - полный путь к файлу, который приклеиваем (можно с пробелами) maill = Chr$(34) & Prog & Chr$(34) & " /mailto=" & Chr$(34) & Text5(0).Text & Chr$(34) & ";Subject=" & Chr$(34) & Text5(1).Text & Chr$(34) & ";A=" & Chr$(34) & Text3.Text & Chr$(34) '' переменная готова, теперь вызываем! Call Shell(maill) '' готовое письмо можно найти в том ящике (если их больше одного), '' который имеет приемущество (создавался первым). Как засунуть в '' другой, не зная его имя пока не знаю, в след версиях, ха,ха. End If Exit Sub '' тут я думаю, понятно! PRNT: Msgbox "Error: " & Err.Description End Sub
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам