Userform da Mail Penceresine Dosya Ekleme Hakkında

[yesimgurol]

Merhabalar;
Form daki örneklere bakarak ,UserForm da Mail yolla butonuna bastığımda Outlook penceresi açılıyor ve form içindeki Textbox 9 daki değeri mail adresi olarak alıyor.Açıklamamı da yazıyorum. Bu kısma kadar sorunum yok.Kullanılan kodlar;

Private Sub CommandButton6_Click()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = TextBox9.Value
    .Subject = "Otomatik mesaj"
    .Body = "Bu e-posta deneme amaçlı gönderilmiştir"
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

Dosya eklemem gerekiyor fakat bu noktada sıkıntı yaşıyorum. Hasta raporlarını protokol numaralarına göre PDF olarak depoladığım bir adet klasörüm mevcut.Amacım bu klasörden hasta protokol numarasına göre arama yaptırıp,bulunan dosyayı mail penceresine eklemek.
Form da bulunan "Textbox 1" değerini "C:\Users\murat\Desktop\f" klasöründe arayıp bulunan dosyayı açılan mail penceresine eklemek istiyorum.

 

[halit3]

.Display dan önce bunu ekle

 .Attachments.Add "C:\Users\murat\Desktop\f"

 

[yesimgurol]

.Display dan önce bunu ekle

 .Attachments.Add "C:\Users\murat\Desktop\f"

Halit Bey,ekledim fakat "yalnızca dosyalar ve nesneler ek olabilir" uyarısı çıktı.

 

[halit3]

Halit Bey,ekledim fakat "yalnızca dosyalar ve nesneler ek olabilir" uyarısı çıktı.

Burada anlatılmak istenen kırmızı yere dosya adresini yazacaksınız.

.Attachments.Add    [COLOR="Red"]"C:\Users\murat\Desktop\f"[/COLOR]

.Attachments.Add  [COLOR="Red"]"Dosya adresi"[/COLOR]

 

[yesimgurol]

Hmm,Halit Bey;
Yapmak istediğim;
Textbox 1 de (bu değer değişkenlik gösterebiliyor) mesela 01052015-1 protokol nosu yazsın. Bu protokol nosunu "C:\Users\murat\Desktop\f" du klasörde arayıp bulunca açılan mail penceresine eklemesini istiyorum.

Şİmdi dosya adı derken hangisini yazmam gerekiyor.

 

[Saban Sertkaya]

.............

 

[yesimgurol]

ben neyi göremiyorum.:-(

 

[Saban Sertkaya]

"C:\Users\murat\Desktop\f\01052015-1" & ".pdf"

Kırmızı yerine Textbox1'den değer aldırabilirsiniz.

 

[yesimgurol]

"C:\Users\murat\Desktop\f\01052015-1" & ".pdf"

Kırmızı yerine Textbox1'den değer aldırabilirsiniz.

Şaban Bey,ilginize teşekkür ederim.Evet şimdi oldu dosya adını yazdığımda ekledi.Fakat Textbox 1 değerini alamadım.Dosya adı yerine "TextBox1.Value" bu şekilde yazdım olmadı.Muhtemelen yanlış yazdım.Nasıl eklemem gerekecek acaba,textbox 1 değerini alması için..

 

[Saban Sertkaya]

Halit hocamın izni ile, konuya müdahele etmiş bulunduk. Bu şekilde deneyiniz.

"C:\Users\murat\Desktop\f\" & Textbox1.Value & ".pdf"

 

[yesimgurol]

Sayın Halit ve Şaban Bey,ilginize çok çok teşekkür ederim.Evet tam istediğim gibi oldu.:dua2::mutlu::mutlu:
Son bir ricam olsa,şimdi son hali ile kodlarım şu halde,

Private Sub CommandButton6_Click()

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = TextBox9.Value
    .Subject = "Otomatik mesaj"
    .Body = "Bu e-posta deneme amaçlı gönderilmiştir"
     .Attachments.Add "C:\Users\murat\Desktop\f\" & TextBox1.Value & ".pdf"
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
MsgBox "Mail gönderildi ."
End Sub

Acaba mail gönderilince form içindeki textbox 18 e "gönderildiği tarih / mail gönderildi" notu yazdırabilir miyiz.

 

[Saban Sertkaya]

Eklenecek dosya yok ise hata veriyor mu acaba ?
Aşağıdaki şekilde bir deneyeniz.

Private Sub CommandButton6_Click()
[B][COLOR="red"]On Error Goto Hata[/COLOR][/B]
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = TextBox9.Value
    .Subject = "Otomatik mesaj"
    .Body = "Bu e-posta deneme amaçlı gönderilmiştir"
     .Attachments.Add "C:\Users\murat\Desktop\f\" & TextBox1.Value & ".pdf"
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
[COLOR="Red"][B]Textbox18 = Format(Date,"dd.mm.yyyy") & " mail gönderildi."
MsgBox "Mail gönderildi ."
Exit Sub 
Hata:
Msgbox"Dosya bulunamadı"[/B][/COLOR]
End Sub

 

[yesimgurol]

Şaban Bey,çok teşekkür ederim ilginize tam istediğim gibi olmuş.:bravo::dua2::mutlu::mutlu:

 

[Saban Sertkaya]

Rica ederim. Kolay gelsin.

 

[assenucler]

Bir rica

Sayın yesimgurol,


İçinde veri olmayan kullandığınız dosyanın en son halini gönderebilir misiniz?

İlginiz ve yardımınız için önceden teşekkürler.

 

[assenucler]

Sayın yesimgurol,


İzin verirseniz dosyanızı bekliyorum.

Yardımınız için teşekkürler.

 

[yesimgurol]

Sayın yesimgurol,


İzin verirseniz dosyanızı bekliyorum.

Yardımınız için teşekkürler.

Dosyayı ekledim.Açılan kayıt formunda listview penceresinde herhangi bir veriye çift tıklandığında düzenleme,mail yollayabileceğiniz form açılıyor.Ekli dosyada ben bir adet örnek pdf dosyası ilave ettim.(f klasöründe) Gönderilecek dosya ismi textbox 1 e göre ayarlı. Mail yolla dediğinizde textbox 1 değerini f klasöründe arar bulur ise mail penceresine ekler.Bu arada mail gönder kodalrında dosya yolunu kendinize göre ayarlamayı unutmayınız. Umarım faydalı olur.İyi çalışmalar.

 

[assenucler]

Teşekkürler

İnceliğiniz ve paylaşımınız için teşekkürler Sayın yesimgurol.

Bu arada, emek ve katkı veren üstatlara da teşekkürler.

Sevgi ve saygılar.

 

[mehoaga]

İnceliğiniz ve paylaşımınız için teşekkürler Sayın yesimgurol.

Bu arada, emek ve katkı veren üstatlara da teşekkürler.

Sevgi ve saygılar.

yesimgurol hanım;
Gayet güzel olmuş. ellerinize sağlık. paylaşım için tşk ler.

 

[halit3]

Mail gönderme işlemi ile ilgili mail gönder e ait kodu bu şekilde denermisiniz.

not:dosyanın yanında mutlaka f klasörü olmalı

kod:

Private Sub CommandButton6_Click()
msg2 = MsgBox("Mail göndermek istiyormusunuz.? ", vbYesNo + vbInformation, "u y a r ı !")
If msg2 = vbNo Then
Exit Sub
End If

msg1 = MsgBox("Mail dosyası göndermek istiyormusunuz.?", vbYesNo + vbInformation, "u y a r ı !")

On Error GoTo Hata
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
    .To = TextBox9.Value
    .Subject = "Otomatik mesaj"
    .Body = "Bu e-posta deneme amaçlı gönderilmiştir"
         
If msg1 = vbYes Then
Mail_Dosyası = ThisWorkbook.Path & "\f\" & TextBox1.Value & ".pdf"  ' Eklene dosya
If CreateObject("Scripting.FileSystemObject").FileExists(Mail_Dosyası) = True Then
.Attachments.Add Mail_Dosyası
Else
MsgBox (Mail_Dosyası & Chr(10) & "Eklenecek liste dosyası yok"): Exit Sub
End If
     
    .Display
End With
Set objMail = Nothing
Set objOL = Nothing
TextBox18 = Format(Date, "dd.mm.yyyy") & " mail gönderildi."
MsgBox "Mail gönderildi ."
Exit Sub
Hata:
MsgBox "Dosya bulunamadı"
End Sub