• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Ustalardan Acil Yardım Gerekiyor

alirizapekbilir

Altın Üye
Altın Üye
Katılım
11 Şubat 2016
Mesajlar
140
Beğeniler
0
Excel Vers. ve Dili
2013
#1
Forumdan bulduğum bu sayfayı kendime uyarlamaya çalıştım. ama bir türlü mail göndermeyi başaramadım. hata mesajı alıyorum. sizce sorun nedir arkadaşlar. benim için çok acil.( run time 287 hatası veriyor )
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
12,292
Beğeniler
6
Excel Vers. ve Dili
Ofis 2003 İngilizce
Ofis 2007 Türkçe
Ofis 2010 Türkçe
#2
Merhaba,

Konu başlığınızı sorunuzu özetler şekilde değiştirin lütfen.
 

askm

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,174
Beğeniler
7
Excel Vers. ve Dili
2010-2016
#3
Kod:
Sub mail_gonder()
'     sonsatir = Cells(Rows.Count, "C").End(3).Row
'     For i = 2 To sonsatir
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .Subject = Cells(4, "B").Value
       .To = Cells(2, "B").Value
       .CC = Cells(3, "B").Value
       .htmlbody = "<br><br>" & Cells(5, "B").Value ' & .htmlbody
'       .Display
       .send
      End With
      
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      Set OutApp = Nothing
'    Next i
End Sub
 
Üst