دریافت ایمیل

[Payman62]

سلام.
من میخوام از طریق برنامه نویسی ایمیل دریافت کنم. میشه کمکم کنید. پروتوکول هم فرض pop3 باشه.

[SeyedMoosavi]

ایمیل دریافت کنی یا بفرستی؟

[ASKaffash]

سلام
دوست من اگر ActiveReport2.0 را داشته باشید یک مثال برای ارسال EMail ارائه شده است شاید برای شروع بد نباشد
درمسیر

\Data Dynamics\ActiveReports 2\Samples\Visual Basic Samples\Auto Email from RPX

[Payman62]

سلام.
نه ندارم. میشه آپلود کنی.
جناب موسوی عنوان تاپیک که مشخصه. دریافت ایمیل.

[ASKaffash]

سلام
جناب Payman62 لطفا EMail خود را با پیام برایم ارسال کنید

[.:KeihanCPU:.]

ایمیل دریافت کنی یا بفرستی؟
------------------------------------------------------------------
سوالو بخونید
------------------------------------------------------------------
لطفا هر چی هست اینجا قرار بدین ما هم یاد بگیریم

[ASKaffash]

با سلام
اینهم کد آن مثال :

Option Explicit
Dim m_failstatus
Dim m_csent
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub RendertoPDF(fpreview)
m_failstatus = "report initialization."
On Error GoTo fail
Dim rpt As New rptMainTemplate 'create instance of activereport
rpt.LoadLayout txtSourceLayout.Text 'replace layout with XML layout in rpx file
rpt.Run 'render the report
m_failstatus = "pdf creation."
Dim pdfexport As New ARExportPDF 'create instance of export object
pdfexport.FileName = App.Path & "\pdftempfile.pdf" 'set destination file
pdfexport.Export rpt.Pages 'create document
If fpreview = False Then
m_failstatus = "Message creation."
DoSend pdfexport.FileName
m_csent = m_csent + 1
SetSendCount
Else
Call ShellExecute(0, "OPEN", pdfexport.FileName, vbNull, vbNull, 1)
End If
Exit Sub 'Success!
fail:
MsgBox "Send fails. Please acknowledge" & vbCrLf & "Critical error during " & m_failstatus, vbCritical, "Critical Error"
End Sub
Private Sub btnPreview_Click()
RendertoPDF True
End Sub
Private Sub btnSend_Click()
RendertoPDF False
End Sub
Private Sub Form_Load()
'set m_csent counter, set 4 textboxes on frmReportMailConsole
txtTo = "itsa@realemailreally.com"
txtSubject = "Most recent data!"
txtSourceLayout = App.Path & "\Unbound array in vbscript.rpx"
txtAttachmentName = "ProductWeeklySales.PDF"
m_csent = 0
SetSendCount
End Sub
Private Sub SetSendCount()
'update counter with value of global
lblSendCount.Caption = m_csent & " Emails sent."
End Sub
Private Sub btnFileOpen_Click()
dlgRPX.Filter = "ActiveReports Layout (*.rpx)|*.rpx"
dlgRPX.ShowOpen
If dlgRPX.FileName <> "" Then
txtSourceLayout.Text = dlgRPX.FileName
End If
End Sub
Private Sub DoSend(pdf_filename)
MAPISession1.SignOn

MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose
MAPIMessages1.RecipAddress = txtTo.Text
MAPIMessages1.MsgSubject = txtSubject.Text
MAPIMessages1.MsgNoteText = txtMessageBody.Text

'Add the Attachment at the end of the message
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)

'Set the type to a data file
MAPIMessages1.AttachmentType = mapData

'Give it a name
MAPIMessages1.AttachmentName = txtAttachmentName.Text

'Specify what file to send
MAPIMessages1.AttachmentPathName = pdf_filename

MAPIMessages1.Send False 'false means do not show the composition window

MAPISession1.SignOff
End Sub

[.:KeihanCPU:.]

لطفا پروژه رو ضمیمه کنید

[Payman62]

سلام.
این که ارسال ایمیله من دریافت ایمیل میخوام.