| Вопрос: Програмно послать файл на ящик друга! | Добавлено: 17.04.07 16:02 |
Автор вопроса:  MIRC | ICQ: 254226129 |
| Помогите пожалуйста |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 17.04.07 17:21 |
|
'Отправка почты с аттачментом из VB-приложения
'*************************************************************** 'Windows API/Global Declarations for :SendMail '*************************************************************** Source Code: Note:This code is formatted to be pasted directly into VB. Pasting it into other editors may or may not work. '*************************************************************** ' Name: SendMail ' Description:This routine Sends mail with attachment to anybody ' you specify ' By: Whatever ' ' ' Inputs:From : Sender (your profile) To: Recipient Subject: Text: Text Body UI: 0=open Mail User Interfase Atta: Attachment (separated by 
' ' Returns:None ' 'Assumes:None ' 'Side Effects:Be aware of passing all the parameters with data '(atta is aptional) ' 'Code provided by Planet Source Code(tm) (http://www.PlanetSource ' Code.com) 'as is', without warranties as to performance, fitness, ' merchantability,and any other warranty (whether expressed or ' implied). '*************************************************************** 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 Я сам не пробовал, просто наткнулся на код. |
||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 17.04.07 22:15 |
| Уууух, задолбали спамеры. Может, сразу посылать на юг таких товарищей? | ||
|
Номер ответа: 3 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #3 | Добавлено: 17.04.07 23:05 |
| на урановые шахты | ||
|
Номер ответа: 4 Автор ответа: D o c a l  ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #4 | Добавлено: 17.04.07 23:31 |
| В лагеря | ||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 18.04.07 00:37 |
| На север.. на каторгу | ||
|
Номер ответа: 6 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #6 | Добавлено: 18.04.07 01:08 |
| в бабруйск пасти жывотных!!!!!! | ||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 18.04.07 03:29 |
Вот интересно: если бы просто бы спросили как мыло отправить - никаких проблем, дали бы ссылку, или я бы отправил в поиск  А коль написал "на ящик друга" - всё, спамер. Вывод? - правельно, писать "на ящик подруги" )
|
||
|
Номер ответа: 8 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #8 | Добавлено: 18.04.07 20:02 |
| Вывод - не писать про аттачмент. Кроме того, да, "друг" большие сомнения сразу порождает. Мало ли зачем программе нужно отправлять письма, багрепорты, статистика, отчеты. А вот если на какой-то конкретный адрес и почтовый клиент по каким-то причинам не подходит - то тут уже сложно придумать легальное обоснование. | ||
Страница: 1 |