konu alıntı dostum pardon

dostum o dll olmadan kullanamazsın o programı ama forumda arat anymail diye orada mail göndermen için dll gerekmez Ama bu kodlarda kesinlikle dll kullanmalısın

2)SMTP MAİL ATMA: Kod: SMPT server ile Mail Gönderme ve POP3 server ile Mail Alma. SMTP nin amacı e-mailleri bir bilgisayar mail sisteminden diğer bir bilgisayar sistemine transfer etme işlemini yönetmektir. sMTP sadece lokal mail sistemi ile etkileşimde olduğu için hangi mailin sisteme lokal oldugunu görmez. sMTP sadece mail'i bir makineden diğerine gönderip alınırken rol oynar. Bir mail'i başka bir makineye göndermek için sMTP client ilk önce IP hedef adresi dizin servisinden alır. Bu kullanılarak sMTP server hedef host ile bağlantı kurar. Bağlantı kurulduktan sonra client bekleyen mail'i server'a transfer etmeye başlar. Bunun için Marshallsoft'un internet'te free olarak yayımladığı librarysini kullandım. Visual Basic için sMTP/POP3 Email Engine librarysinde (sEE4VB) mail gönderip almak ile ilgili fonksiyonlar bulunuyor. Mail gönderirken dosya da attach edebiliyoruz ve mail'leride uzantısı mai olan ve aktif dizin altında Mail alt dizini olarak yarattığımız dizine kaydedebiliyoruz. Aynı şekilde mail'e attach edilmiş dosyaları da yine aktif dizindeki Attach alt dizinine kaydediyoruz. Programımızın çalışması için gerekli library sEE32. DLL C:Windows un yada C:WINNT altına kopyalanmalıdır. Aşağıdaki kodlar mail gönderme formuna aittir , librarynin özelliğinden dolayı mail To ve From adresleri <,> delimiterları içine alınır. . Mail gönderildikten sonra da delimiterlar adresten çıkarılır . Private sub cmdsend_Click Dim Code As Long Dim Length As Long Dim Bytessent As Long Dim Nullstring As string Dim Temp As string 256 Dim TheFile As string Dim Msg As string Dim NL As string On Error GoTo MailerErrorHandler Nullstring = Chr$(0) NL = Chr$(13) + Chr$(10) eResult. Text = "" 'check that sMTP server name has been specifed If Len = 0 Then eResult. Text = Time$ & " sMTP server girilmemiş." Exit sub End If 'check "From" email address If Len = 0 Then eResult. Text = Time$ & " 'Email From' adresi girilmemiş." Exit sub Else eFrom = MFormat 'mail adresini < > delimiterları içine alır Code = seeVerifyFormat If Code < 0 Then 'error in format eResult. Text = "Hataly 'EMail From' adresi" eFrom. Text = MUnFormat Exit sub End If End If "'To" email adresi kontrolü If Len = 0 Then eResult. Text = Time$ & " 'Email To' adresi girilmemiş." Exit sub Else eTo = MFormat 'mail adresini < > delimiterları içine alır Code = seeVerifyFormat If Code < 0 Then 'error in format eResult. Text = "Hataly 'EMail To' adresi" eTo. Text = MUnFormat Exit sub End If End If ' attach edilmiş dosya var mı? If Len > 0 Then TheFile = eAttach. Text Open TheFile For Input As 1 Close 1 End If ' mesaj kontrolü Length = Len If Length > 0 Then If Left$(eMessage. Text, 1) = "@" Then ' mesajlar "@" ile başlar TheFile = Right$(eMessage. Text, Length - 1) Open TheFile For Input As 1 Close 1 End If End If ' email mesajı gönderilir cmdsend. Enabled = False eResult. Text = Time$ & " Email gönderiliyor..." 'log dosyası set edilir Code = seestringParam 'server a baglanılır eResult. Text = Time$ & eserver. Text & " sMTP serverına bağlanılıyor " Code = seesmtpConnect If Code < 0 Then 'bağlantıda hata varsa kullanıcı mesajla uyarılır Call showError cmdsend. Enabled = True Code = seeClose Exit sub End If ' server IP adresi alınır Code = seeDebug(sEE_GET_sERVER_IP, Temp, 40) eResult. Text = Time$ & Left$ & " IP ile bağlanılıyor. " ' AUTO CALL disable edilir Code = seeIntegerParam(sEE_AUTO_CALL_DRIVER, 0) ' setup to send the email Code = seesendEmail If Code < 0 Then 'email gönderilirken hata olu?tu ise Call showError cmdsend. Enabled = True Code = seeClose Exit sub End If 'emaili gönderecek sürücüyü çalıştır Do ' sonraki durumu çalıştır Code = seeDriver If Code = 0 Then ' driver is done Exit Do End If If Code < 0 Then 'driver returned error Call showError Exit Do End If ' driver not yet done, so report progress. Bytessent = seestatistics eResult. Text = Time$ & " " & str + " bytes sent." Loop ' AUTO CALL'u geçerli hale getir Code = seeIntegerParam(sEE_AUTO_CALL_DRIVER, 1&) eResult. Text = Time$ & " Email has been sent (" & str$ & " bytes)" 'Delimiterlar silinir eTo. Text = MUnFormat eFrom. Text = MUnFormat cmdsend. Enabled = True Code = seeClose Exit sub MailerErrorHandler: select Case Err Case 53: Msg = "VB Hatası 53: File " & TheFile & " bulunmuyor." Case 76: Msg = "VB Error: " & TheFile & " yolu bulunmuyor." Case Else: Msg = "VB " & Err & " hatası oluştu." End select eResult. Text = eResult. Text + Msg + NL MsgBox Msg Resume Next End sub user posted image Mail almak için POP3 server'ın ismi, kullanıcı ismi ve kullanıcının şifresi gereklidir. İlgili form : Private sub cmdGet_click ' Emailler aktif dizin altyndaki Mail altdizinine kaydedilir ' Attachmentlar aktif dizin altyndaki Attachment altdizinine kaydedilir ' Dim i As Integer Dim N As Integer Dim Code As Long Dim NbrMsg As Long static Buffer As string 1024 static Temp As string 256 Dim NL As string static FileName As string 64 static EmailDir As string 64 static AttachDir As string 64 Dim BytesRead As Long Dim AttachCount As Long Dim Nullstring As string Nullstring = Chr$(0) EmailDir = ". Mail" + Chr$(0) AttachDir = ". Attachment" + Chr$(0) NL = Chr$(13) + Chr$(10) eMessage. Text = "" eResult. Text = "" ' POP3 server isminin girilip girilmediğinin kontrolü If Len = 0 Then eResult. Text = Time$ + " POP3 server ismi girilmemiş." Exit sub End If 'Kullanıcı ismi kontrolu If Len = 0 Then eResult. Text = Time$ + " Kullanıcı ismi girilmemiş." Exit sub End If 'Şifre Kontrolu If Len = 0 Then eResult. Text = Time$ + " Şifre girilmemiş." Exit sub End If ' log file set edilir Code = seestringParam 'connect to server cmdGet. Enabled = False eResult. Text = Time$ & eserver. Text & " POP3 server'a ba?lanylyyor." Code = seePop3Connect If Code < 0 Then 'bağlantıda hata Call showError(frmGet, Code, "seePop3Connect:") Code = seeClose cmdGet. Enabled = True Exit sub End If ' prefix attachment filenames with "1-", "2-", etc. Code = seeIntegerParam(sEE_FILE_PREFIX, 1) ' server IP si alınır Code = seeDebug(sEE_GET_sERVER_IP, Temp, 40) eResult. Text = Time$ & Left$ & " IP ile ba?lanylyyor " ' Bekleyen mesajların sayısı alınır NbrMsg = seeGetEmailCount If NbrMsg < 0 Then Call showError Code = seeClose cmdGet. Enabled = True Exit sub End If eMessage. Text = str$ & " email bekliyor." & NL If NbrMsg = 0 Then eResult. Text = Time$ & " server'da bekleyen emailiniz yok." Else eResult. Text = Time$ & " " & str$ & " adet mesaj bekliyor." ' emailler okunur For i = 1 To NbrMsg ' email için dosya ismi hazırlanır FileName = "Email" + LTrim$(str$ + ". mai" + Chr$(0) eMessage. Text = eMessage. Text & RTrim & " olarak kaydedildi" & "..." ' AUTO CALL disable edilir Code = seeIntegerParam(sEE_AUTO_CALL_DRIVER, 0) ' Okunan mail set edilir Code = seeGetEmailFile 'seeDriver kullanılarak email okunur Do ' execute next state Code = seeDriver If Code = 0 Then ' driver is done Exit Do End If If Code < 0 Then 'driver returned error Call showError Exit sub End If BytesRead = seestatistics eResult. Text = str + " bytes read." Loop 'email okunmuştur BytesRead = seestatistics AttachCount = seestatistics eMessage. Text = eMessage. Text & " (" & str$ & " byte;" eMessage. Text = eMessage. Text & str$ & " attachment)" & NL ' AUTO CALL enable edilir Code = seeIntegerParam(sEE_AUTO_CALL_DRIVER, 1&) Next i For i = NbrMsg To 1 step -1 ' email serverdan silinir Code = seeDeleteEmail If Code >= 0 Then eMessage. Text = eMessage. Text & str$ + " email server'dan silindi." & NL Else eMessage. Text = eMessage. Text & "serverdan mail silerken hata olu?tu." & NL End If Next i End If Code = seeClose cmdGet. Enabled = True eResult. Text = Time$ & " Tüm emailler okundu." End sub ALINTI BY-BELLAS ALINTILAR VB-CODER. ORGİmleçle Üstünden Geç

Yanlız bi nokta var MAil yollama ile ilgili yolladığınız kodlarda. dll'den bahsediliyor bu programı direk yollayacaım için direk çalışması lazım wk bir. dll dosyasına ihtiyaç duymadan windowslun dll'leri çerçevesinde

Arkadaslar ben basit bir program yapmak istiyorum bunu sonra geliştireceğim. İstediğim tam olarak programı açan tarafın sistem bilgisini bana mail yolu ile veya başka altarnatif bir yol ile bildirecek bir program yapmak istiyorum. . .

1. Sitem Bilgisi Alma: Kod: 'Projeye eklenmesi gerekenler ' Drive List Box ' Dir List Box ' File List Box ' 8 label: ' lbDVNAME, lbLBNAME, lbDVTYPE, lbTDSKSPC, lbDSKFRSPC, lbCRNTDR, lbWINDR, ' lbPRGCRNTDR ' 1 modül Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" As Long Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" As Long Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" As Long 'formun adını frmDRIVES olarak düzenleyin Private Sub dirNAME_Change fileFILENAMES. Path = dirNAME. Path End Sub Private Sub DriveNAME_Change On Error GoTo FindError dirNAME. Path = DriveNAME. Drive Call DisplayDriveNAME Call DisplaydriveLABEL Call DisplayDriveTYPE Call DisplayTotalDiskSPACE Call DisplayDiskFreeSPACE Call DisplayWindowDIRECTORY Call DisplayCurrentDIR Call DisplayProgramCurrentDIR Exit Sub FindError: MsgBox Err. Description, vbOKOnly + vbCritical, "Error Found" Call DisplayDriveNAME Call DisplaydriveLABEL Call DisplayDriveTYPE Call DisplayTotalDiskSPACE Call DisplayDiskFreeSPACE Call DisplayWindowDIRECTORY Call DisplayCurrentDIR Call DisplayProgramCurrentDIR End Sub Private Sub FileNAME_Click lbFLNAME. Caption = UCase(Left(FileName. FileName, (InStr(1, FileName. FileName, ".")))) lbFLEXT. Caption = UCase(Right(FileName. FileName, 3)) Call DisplayCurrentDirectory End Sub Private Sub Form_Load frmDRIVES. Height = 5220 frmDRIVES. Width = 7665 frmDRIVES. Left = 2325 frmDRIVES. Caption = "works on drives by Created By Ali Farooq" Call DisplayDriveNAME Call DisplaydriveLABEL Call DisplayDriveTYPE Call DisplayTotalDiskSPACE Call DisplayDiskFreeSPACE Call DisplayWindowDIRECTORY Call DisplayCurrentDIR Call DisplayProgramCurrentDIR End Sub Private Sub Form_MouseMove If ((frmDRIVES. Height > 5220) Or (frmDRIVES. Width > 7665)) Then frmDRIVES. Height = 5220 frmDRIVES. Width = 7665 frmDRIVES. Left = 2325 ElseIf ((frmDRIVES. Height < 5220) Or (frmDRIVES. Width < 7665)) Then frmDRIVES. Height = 5220 frmDRIVES. Width = 7665 frmDRIVES. Left = 2325 End If End Sub Sub DisplayDriveNAME lbDVNAME. Caption = UCase(Left(DriveNAME. Drive, 2)) End Sub Sub DisplaydriveLABEL lbLBNAME. Caption = Mid(DriveNAME. Drive, 4, 13) If lbLBNAME. Caption = "" Then lbLBNAME. Caption = "No Label Defined" End If End Sub Sub DisplayDriveTYPE Dim Dname, GDT As String Dname = Left(DriveNAME. Drive, 2) & "\" GDT = GetDriveType If GDT = 0 Then lbDVTYPE. Caption = "Unable To Determine The Drive Type" ElseIf GDT = 1 Then lbDVTYPE. Caption = "There is no root Directory" ElseIf GDT = 2 Then 'DRIVE_REMOVABLE lbDVTYPE. Caption = "Removable Disk " ElseIf GDT = 3 Then 'DRIVE_FIXED lbDVTYPE. Caption = "Fixed Drive " ElseIf GDT = 4 Then 'DRIVE_REMOTE lbDVTYPE. Caption = "Drive Remote " ElseIf GDT = 5 Then 'DRIVE_CDROM lbDVTYPE. Caption = "CDROM Drive" ElseIf GDT = 6 Then 'DRIVE_RAMDISK lbDVTYPE. Caption = "Drive is a RAM drive" End If End Sub Sub DisplayTotalDiskSPACE On Error Resume Next Dim Dname As String Dim GTDFS As Long Dim Sectors As Long, Bytes As Long, FreeClusters As Long, TotalClusters As Long Dname = Left(DriveNAME. Drive, 2) & "\" GTDFS = GetDiskFreeSpace lbTDSKSPC. Caption = Sectors Bytes TotalClusters End Sub Sub DisplayDiskFreeSPACE On Error Resume Next Dim Dname As String Dim GDFS As Long Dim Sectors As Long, Bytes As Long, FreeClusters As Long, TotalClusters As Long Dname = Left(DriveNAME. Drive, 2) & "\" GDFS = GetDiskFreeSpace lbDSKFRSPC. Caption = Sectors Bytes FreeClusters End Sub Sub DisplayWindowDIRECTORY Dim Dname, GWD As String Dim Buffers As String 255 Dname = Left(DriveNAME. Drive, 2) & "\" GWD = GetWindowsDirectory(Buffers, 255) lbWINDR. Caption = Buffers End Sub Sub DisplayCurrentDIR lbCRNTDR. Caption = Left(UCase , 2) + "\" End Sub Sub DisplayProgramCurrentDIR lbPRGCRNTDR. Caption = App. Path End Sub Sub DisplayCurrentDirectory lbCRNTDR. Caption = dirNAME. Path + "\" + FileName. FileName End Sub ALINTI BY-CESAR -