Nereden çıktı visual Basic 6 ile yazılan eski yazılımlar var ve hala oldukca sık kullanılıyor.
şimdi devam ediyoruz.
Microsoft Visual Basic açarak Project>Refences... diyerek Referansımızı ekliyoruz Microsoft Outlook 12.0 object library ekliyoruz ama 12.0 versiyonu office 2007 paketi ile geldiğinden illaki bu versiyonu olması şart değil 11,10,9,98,8 versiyonu bile olur :).
Referansları ekledikten sonra tekrar project>microsoft common dialog control 6.0(sp6) eklemeniz gerekiyor. Benim eklediğim visual basic 6 (service pack 6) ile geliyor .Common dialog kontrolle seçtiğimiz dosyayı attachment yapmak için kullanacagız.file open dialog kontrol olarak kullanacağız zaten.
Eklemeler bitti şimdi formumuza bir buton bir tanede common dialog control ekliyoruz.
şimdi butona tıklayıp olayına aşağıdaki kodu yazıyoruz.
Private Sub Command_Click()
Dim olApp As Outlook.Application 'uygulamayı yap
Set olApp = CreateObject("Outlook.Application") 'uygulamayı ata
Dim olNs As Outlook.NameSpace 'outlook özelliklerini ata
Set olNs = olApp.GetNamespace("MAPI") 'MAPI kullan
olNs.Logon ' oturum aç
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem) ' yeni bir mail gönder Bu tip mail gönderileceğini söylüyor.
' Fill out & send message...
olMail.To = ....@gmail.com ' kime mail
olMail.Subject = "Mail Konusu..." 'konusu ne
olMail.Body = "deneme mesajımız" 'mesajımız ne
Dim dosyatamam As String
CommonDialog.ShowOpen
dosyatamam = olMail.Attachments.Add(CommonDialog.FileName, 'dosya ekle Outlook.OlAttachmentType.olByValue, 1, CommonDialog.FileName) 'ilk sıraya dosyayı ekle
olMail.Display 'dosyayı outlookla göster.
End Sub
olMail.Display yerine olMail.Send yazarsanız direk gönderede bilirsiniz. şu an da yazıdğımız kod gayet şahane bir şekilde yazdığımız
olMail.To = ".....@gmail.com"
olMail.Subject = "Mail Konusu..."
olMail.Body = "deneme mesajımız"
bu bilgiler maillere ekleniyor bunları textboxlarla ilişkilendirmekte size kalıyor.
kolay gelsin .
Hiç yorum yok:
Yorum Gönder