VBNet - Форум - Избитая тема с отправкой почты

Вопрос: Избитая тема с отправкой почты Добавлено: 21.08.02 21:15

Автор вопроса: Sergey

Народ, кто подскажет, где грабли. Задача: запустить софтину с параметром, отправить файл и выйти.
Вот код модуля. Собственно, ничего кроме модуля тут нет:
Sub Main()
   Dim strFilePath, strFileName, strPrm, strTO As String
   Dim objSession, objMsg As Object
   Dim iFN As Integer

   strPrm = Trim$(Command)

   strFilePath = strPrm
   strFileName = Mid$(strFilePath, InStrRev(strFilePath, "\", , 1) + 1)

   Set objSession = CreateObject("MAPI.Session")
   objSession.Logon "Microsoft Outlook", , False, False

   Set objMsg = objSession.Inbox.Messages.Add
   objMsg.Subject = "Здесь тема"
   objMsg.Text = "Текст сообщения"
   objMsg.Attachments.Add strFileName, , , strFilePath

   iFN = FreeFile ' Открываем файл со списком получателей
   Open App.Path & "\mail.ini" For Input As #iFN
      Do While Not EOF(iFN)
         Line Input #iFN, strTO
         If StrComp(Left$(strTO, 4), "Item", 1) = 0 Then
            strTO = Mid$(strTO, InStr(1, strTO, "=", 1) + 1)
            objMsg.Recipients.Add strTO
         End If
      Loop
   Close #iFN

   objMsg.Recipients.Resolve
   objMsg.Send

   Set objMsg = Nothing
   Set objSession = Nothing

   End
End Sub
Вот, собственно, и все. На моем компе она работает, а там, где нет ВБ, выдает МСГБокс Type Mismatch
Где собака порылась, может подскажет кто?

Ответить

Ответы Всего ответов: 1

Номер ответа: 1
Автор ответа:

Keith Flint

Вопросов: 29
Ответов: 74

Web-сайт: www.flint7.nm.ru
Профиль | | #1

Добавлено: 21.08.02 21:29

Привет, брат по несчастью!!!

Эта жирная сопля и меня достала сильно!!! Я тоже как-то защиту на свою прогу написал - у мя пашет как миленькая - чуть другой комп - сразу Type Mismatch - вот собака-так собака!!!!

А в чём была причина так и не удалось до конца установить - пришлось алгоритм переделывать!!!

Ответить

Страница: 1 |