| Вопрос: Отправка сообшения на мыло! | Добавлено: 04.06.03 15:47 |
Автор вопроса:  Millenium | Web-сайт: www.aliyev.us | ICQ: 629966 |
|
Привет! Наверняка всем вам нужна прога отправки письма. Вот я и токую создал, правда плагиатничея! Но вот в чём дело... Использую ВинШок! Но в одной сесии отпровляет только одно письмо! А при следуюшем вызывает ошибку! Кто знает зачем помогите! Пока! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Virtual Вопросов: 10 Ответов: 30 |
Профиль | | #1 | Добавлено: 12.10.03 02:48 |
|
Скинь исходник! Я посмотрю. |
||
|
Номер ответа: 2 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 13.10.03 19:11 |
|
И мне блин тоже нада! |
||
|
Номер ответа: 3 Автор ответа:  HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 13.10.03 20:42 |
| А ты Winsock.Close делаеш между сесиями | ||
|
Номер ответа: 4 Автор ответа:  HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 13.10.03 20:53 |
| Слушай! А в твоей проги к сообщению файлы привязывать можно? | ||
|
Номер ответа: 5 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #5 | Добавлено: 14.10.03 04:28 |
|
Слухайте, у меня ж был суперпример с возможностью отправлять сколько хош писем и сколько хош файлов цеплять (!!!) я его даже выкладывал, но никто не поинтересовался. С ним чё то немного не в порядке тоже, но я не могу понять что, скорее всего сто то с сис-мой моей случилось. Смотри тему Помогите с exampl'ом по намыливанию !!! |
||
|
Номер ответа: 6 Автор ответа: Maxik Вопросов: 58 Ответов: 201 |
Профиль | | #6 | Добавлено: 16.10.03 15:01 |
|
Кажется так можно с аттачем. Работает с mapi. Сразу предупреждаю, что код не проверял. Sub MSnAB(FromName As String, ToName As String, Subject As String, _ Text As String, UI As Integer, Atta As String) Dim Count As Integer Static Address(0 To 30) As String On Error Goto MAILERROR MAPIAUX.MSESS.UserName = FromName MAPIAUX.MSESS.SignOn MAPIAUX.MMSG.SessionID = MAPIAUX.MSESS.SessionID MAPIAUX.MMSG.Compose Call ParseAddress(ToName, Count, Address()) For I = 0 To Count - 1 MAPIAUX.MMSG.RecipIndex = I MAPIAUX.MMSG.RecipType = mapToList MAPIAUX.MMSG.RecipDisplayName = Address(I) MAPIAUX.MMSG.ResolveName Next I MAPIAUX.MMSG.MsgSubject = Subject MAPIAUX.MMSG.MsgNoteText = Text & Chr$(13) If Trim$(Atta)<> "" And Dir(Trim$(Atta)) <>"" Then MAPIAUX.MMSG.AttachmentIndex =MAPIAUX.MMSG.AttachmentCount MAPIAUX.MMSG.AttachmentType = 0 MAPIAUX.MMSG.AttachmentPathName = Trim$(Atta) MAPIAUX.MMSG.AttachmentPosition = Len(Text) End If If UI <> 0 Then MAPIAUX.MMSG.Send Else MAPIAUX.MMSG.Send True End If MAPIAUX.MSESS.SignOff Exit Sub MAILERROR: c = Err B = Error$ MsgBox " Mail Function Error " & Error$ MAPIAUX.MSESS.SignOff End Sub Sub ParseAddress (ANames As String, Count As Integer, Addrs() As String) Dim CPos As Integer Dim VPos As Integer Dim SPos As Integer I = 0 SPos = 1 CPos = 0 Do CPos = InStr(ANames, ";") If CPos = 0 Then VPos = Len(ANames) + 1 Else VPos = CPos Addrs(I) = Mid$(ANames, SPos, VPos - SPos) I = I + 1 ANames = Right$(ANames, Len(ANames) - CPos) Loop While CPos > 0 Count = I End Sub |
||
|
Номер ответа: 7 Автор ответа: AндрейICQ: 259020622 Вопросов: 30 Ответов: 71 |
Профиль | | #7 | Добавлено: 10.05.05 12:16 |
| Ты на каких серверах она работает, esmpt поддерживается? | ||
|
Номер ответа: 8 Автор ответа:  AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 10.05.05 22:29 |
|
Можно мне тоже, plz?
[mailto:NoviksPlavnik@mail.ru] |
||
Страница: 1 |