Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 18-05-2017, 20:47   #1
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 192
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan Excel İle Notları Mail İle Gönderme

İyi günler. Ekte verdiğim sınav analiz programında Not Analizi sayfasındaki öğrenci notlarını mail gönderme sayfasından nasıl mail gönderebilirim.Mail gönderdiğimde gönderildi iletisi alabilir miyim?
Eklenmiş Dosyalar
Dosya Türü: rar 4. Sınıf Yazılı Sınav Analiz Programı.rar (158.4 KB, 19 Görüntülenme)
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-05-2017, 06:51   #2
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,132
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Günaydın Arkadaşım,
Asri Akdeniz hocanın asriakdeniz.com adresini inceleyin. Hocanın, isteğinize uygun bir mail gönderme çalışması var.
Kolay gelsin
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-05-2017, 17:13   #3
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 192
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Hocam bilgim o kadar yeterli değil ekleyebileceğiniz var mı acaba?
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-05-2017, 22:29   #4
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mehmetaltin tarafından gönderildi Mesajı Görüntüle
Hocam bilgim o kadar yeterli değil ekleyebileceğiniz var mı acaba?
Dosyanızı dosya.tc yada dosya.co dan yükleyip link verebilir misiniz?
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-05-2017, 18:57   #5
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 192
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Hocam dosya 1. mesajda ekli...
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-05-2017, 19:22   #6
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mehmetaltin tarafından gönderildi Mesajı Görüntüle
Hocam dosya 1. mesajda ekli...
Biliyorum

İndiremediğim için harici link istemiştim.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-05-2017, 20:30   #7
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 192
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Çok özür dilerim fark etmedim hocam...

http://s5.dosya.tc/server4/5t4mqb/4....grami.rar.html
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-05-2017, 21:32   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Aşağıdaki şekilde deneyiniz.
Mail sayfasında boş mailli satırları ve boş olmayıp @ içermeyen mail adreslerini işleme almaz.

http://dosya.co/94w3t804jv9s/4._Sını...ramı.xlsm.html


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim OutApp As Object, OutMail As Object
Dim Alan As Range, son As Long, Veri As Range
Dim k As Range
    
Sub mail_gonder()
  Set shmail = Sheets("MailGönder")
  mailsonsatir = shmail.Cells(Rows.Count, "B").End(3).Row
  
  Sheets("NotAnalizi").Select
  sonsatir = Cells(Rows.Count, "B").End(3).Row
  
  Set OutApp = CreateObject("Outlook.Application")
  
  For j = 4 To mailsonsatir
      mailadresi = shmail.Cells(j, "D").Value
      If mailadresi = "" Or InStr(mailadresi, "@") = 0 Then GoTo son
      mailogrenci = shmail.Cells(j, "B").Value
      Set k = Range("B1:B" & sonsatir).Find(mailogrenci, , xlValues, xlWhole)
      satir = 0
      If k Is Nothing Then
      Else
       satir = k.Row
      End If

      Set OutMail = OutApp.CreateItem(0)
      ogrencino = Cells(satir, "B").Value
      ogrenciadi = Cells(satir, "C").Value
      Set Alan = Range("A1:AB3,A" & satir & ":AB" & satir)
      With OutMail
       .To = mailadresi
       .CC = ""
       .BCC = ""
       .Subject = "Öğrenci Notu Bilgilendirme"
       .HTMLBody = "<br>Öğrenci Numarası : " & ogrencino & "<br>Öğrenci Adı : " & ogrenciadi & _
             "<br>" & RangetoHTML(Alan) & .HTMLBody
       '.SendUsingAccount = OutApp.Session.Accounts.Item(1)
       .Display
       .Send
     End With
     Set OutMail = Nothing
son:
 Next j
   Set OutApp = Nothing
    
End Sub

Sub mail_gonder_analiz()
  Set shmail = Sheets("MailGönder")
  mailsonsatir = shmail.Cells(Rows.Count, "B").End(3).Row
  
  Sheets("ÖğrenciAnalizi").Select
  sonsatir = Cells(Rows.Count, "B").End(3).Row
  ogrenci = Cells(2, "B").Value
  
  Set OutApp = CreateObject("Outlook.Application")
  
  Set k = shmail.Range("C1:C" & mailsonsatir).Find(ogrenci, , xlValues, xlWhole)
  satir = 0
  mailadresi = ""
  If k Is Nothing Then
  
  Else
    satir = k.Row
    mailadresi = shmail.Cells(satir, "D").Value
  End If
  
  If mailadresi = "" Or InStr(mailadresi, "@") = 0 Then
     MsgBox ("Mail adresi bulunamadı.")
     GoTo son
  End If
      
      Set OutMail = OutApp.CreateItem(0)
      ogrencino = Cells(satir, "B").Value
      ogrenciadi = Cells(satir, "C").Value
      Set Alan = Range("A1:O102")
      With OutMail
       .To = mailadresi
       .CC = ""
       .BCC = ""
       .Subject = "Öğrenci Eksik Konu Analizi"
       .HTMLBody = RangetoHTML(Alan) & .HTMLBody
       '.SendUsingAccount = OutApp.Session.Accounts.Item(1)
       .Display
       .Send
     End With
     Set OutMail = Nothing
son:

   Set OutApp = Nothing
End Sub

Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2013
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function
__________________
www.asriakdeniz.com

Bu mesaj en son " 28-05-2017 " tarihinde saat 13:04 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 10:06   #9
mehmetaltin
Altın Üye
 
Giriş: 17/11/2011
Şehir: burdur
Mesaj: 192
Excel Vers. ve Dili:
excel 2007 türkçe
Varsayılan

Hocam nasıl eklicem yapamadım ben...
mehmetaltin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2017, 11:31   #10
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
mehmetaltin tarafından gönderildi Mesajı Görüntüle
Hocam nasıl eklicem yapamadım ben...
Mesajıma link eklendi.

Mail Gönder sayfasındaki Mail Gönder butonuna basınız.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:25


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden