merhaba arkadaslar , cevremdeki arkadaslarimdan ve yaptigim arastirmalar sonucu cok guzel bir site oldugunu ogrendim araniza yeni katildim, arkadaslar ekte gonderdigim dosyada listbox da bulunan degerlerin mail ile ilgili adrese gonderilmesini istiyorum bunun icin gerekli kodlari yazmaya calistim fakat calistiramadim nerde hata yapiyorum acaba ilgilenirseniz memnun olurum, herkese iyi calismalar dilerim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
listbox da bulunan değerlerin mail ile gonderilmesi
- Konbuyu başlatan BG
- Başlangıç tarihi
arkadaslar kodlar ve user form yazili sadece kod da bir yerlerde hata yapiyor olmaliyim sebebini bulamadim sorun nedir sizce?
kod:
Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim a As String
a = ListBox1.Text
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "xxx@yyy.com"
.CC = ""
.BCC = ""
.Subject = "deneme"
.Body = a
.Attachments.Add a
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
kod:
Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim a As String
a = ListBox1.Text
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "xxx@yyy.com"
.CC = ""
.BCC = ""
.Subject = "deneme"
.Body = a
.Attachments.Add a
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
sayın "brain"
kullandığınız kodu formdan aldığınız belli oluyor:
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " İŞARETLEYİNİZ ...
kullandığınız kodu formdan aldığınız belli oluyor:
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " İŞARETLEYİNİZ ...
Sayın "brain" bende fazla birşebilmiyorum aynı kodları kollandım bende çalıştıramamıştım.
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " işaretleyince çalıştı ...
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " işaretleyince çalıştı ...
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.