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 17-07-2017, 08:43   #1
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 57
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan Otomatik Mail

Merhaba,

Örnek dosyada eklediğim tablomu Pazar günleri hariç düzenli olarak mail atıyorum. Ben bu dosyadaki tabloyu hergün sabah saat 08:00'da belirttiğim mail adresine atmasını istiyorum. Bunun için yapılabilecek bir işlem varmıdır?

Yardımlar için şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsx Örnek.xlsx (16.7 KB, 5 Görüntülenme)
uKiGS Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 09:00   #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

Merhaba,
asriakdeniz.com adresinde aradığınızı bulacağınızı düşünüyorum.
Sayın Asri hocanın mail programı oldukça yetenekli
Kolay gelsin
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 09:19   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,272
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Sayın Tevfik_Kursun hocam önermiş bende link vereyim.

Excel i açık bırakıp runtimer prosedürü ile sürekli zamanı kontrol edip eşit olduğunda gönderim sağlanabilir.

Yada aşağıdaki konuyu inceleyebilir siniz.
http://www.excel.web.tr/f52/otomatik...y-t164121.html
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 09:30   #4
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 57
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Merhaba sayın asri,

Ben dosyayı değil sadece dosyanın içindeki seçili olan tabloyu mail olarak göndermek istiyorum.
uKiGS Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 09:40   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,272
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
uKiGS tarafından gönderildi Mesajı Görüntüle
Merhaba sayın asri,

Ben dosyayı değil sadece dosyanın içindeki seçili olan tabloyu mail olarak göndermek istiyorum.
Yöntem olarak,

* Dosyanın sürekli açık olmadığını var sayıyorum. Bu bir sorun.
* Belli bir alanı mail gönderme dosyanın içine eklenebilir.
* Auto_open ile dosya her açıldığında belli bir alanı mail göndermesi sağlabilir. Bu durumda mail gönderimin günde bir defa çalışması sağlanmalı.
* Daha sonra yine benim yazdığım program ile otomatik gönderim sağlanabilir gibi düşünebiliriz.

Yada arkadaşlar, başka bir yöntem önerebilir.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 09:46   #6
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 57
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Valla yöntemlerinizi evdeki pcden deniyorum ve çok başarılı buluyorum. Yardımlarınız, destekleriniz ve emeğiniz için kendi adıma çok teşekkür ederim.

Ama benim sorunum şirket bilgisayarı olması nedeniyle .exe dosyalarını yönetici şifresi olmadan çalıştıramıyorum. o yüzden bana dosya halinde bir yöntem lazım. Bununla ilgili çalışmalarınız varsa yardım etmenizi rica ederim. Çok teşekkürler.
uKiGS Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-07-2017, 16:57   #7
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,272
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
uKiGS tarafından gönderildi Mesajı Görüntüle
Valla yöntemlerinizi evdeki pcden deniyorum ve çok başarılı buluyorum. Yardımlarınız, destekleriniz ve emeğiniz için kendi adıma çok teşekkür ederim.

Ama benim sorunum şirket bilgisayarı olması nedeniyle .exe dosyalarını yönetici şifresi olmadan çalıştıramıyorum. o yüzden bana dosya halinde bir yöntem lazım. Bununla ilgili çalışmalarınız varsa yardım etmenizi rica ederim. Çok teşekkürler.
Dosya ektedir.
Her gün bir defa mail gönderir. Ne zaman çalıştırdığınızın bir önemi yok.

Şu an için açıldığı gibi yada buton ile mail gönderimi için maili ekrana getiriyor.

'Maili göndermek için .send deki tırnak işaretini kaldırın.
'.send

Dosya açıldığı gibi makro devreye girer ve tarihi kontrol eder. Son gönderilen tarih bu günün tarihinden farklı ise gönderim yapar.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Auto_Open()
  Call mail_secili_alan
End Sub

Sub mail_secili_alan()
      Dim wrdEdit
      Dim alan As Range
      sonsatir = Cells(Rows.Count, "A").End(3).Row
      tarih = CDate(Cells(6, "J").Value)
      
      If tarih = Date Then
         Cells(7, "J").Value = Date + 1 & " tarihinden önce gönderim yapılamaz."
         Exit Sub
      End If
      
      Set alan = Range("A1:F" & sonsatir)
            
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
      With OutMail
       .To = Cells(1, "J").Value
       .CC = Cells(2, "J").Value
       .BCC = ""
       .Subject = Cells(3, "J").Value
       .Display
       
       'Maili otomatik göndermek için .send deki tırnak işaretini kaldırın.
       '.send
       .HTMLBody = Cells(4, "J").Value & RangetoHTML(alan) & .HTMLBody
       End With
       Cells(6, "J").Value = Date
       Cells(7, "J").Value = Date + 1 & " tarihinden önce gönderim yapılamaz."
      Set wrdEdit = Nothing
      Set OutMail = Nothing
      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
Eklenmiş Dosyalar
Dosya Türü: xlsm GundeBirGonder.xlsm (25.0 KB, 5 Görüntülenme)
__________________
www.asriakdeniz.com

Bu mesaj en son " 18-07-2017 " tarihinde saat 08:31 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-07-2017, 07:53   #8
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 57
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Yardım ve emekleriniz için çok teşekkür ederim. Mükemmel bir içerik olmuş. Fakat mail adresini değiştirdiğim zaman gönderme yapamıyorum.
uKiGS Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-07-2017, 08:32   #9
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,272
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
uKiGS tarafından gönderildi Mesajı Görüntüle
Yardım ve emekleriniz için çok teşekkür ederim. Mükemmel bir içerik olmuş. Fakat mail adresini değiştirdiğim zaman gönderme yapamıyorum.
Sanırım buton bağlantısını unutmuşum

Aynı gün içinde birden fazla göndereceksiniz. Gönderme tarihini silin.

Dosya güncellendi.
__________________
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 13:14


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