Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-04-2016, 10:42   #1
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan Mail Gönderme (Outlook açılmadan)

Burada yapılmak istenen outlook açılmadan gmail hesaplardan dosya veya tablo olarak istenen zaman aralıklarında mail gönderme

Sayfa1 deki userformu açtığınızda saat dakika düğmesine tıklayıp kahverengi açılan liste kutusundan 00:05:00 beş dakikayı seçip mail gönderilecek adresleri de işaretlerseniz, herseferinde kaç adet mail gönderecekseniz turkuaz renkli nesneye yazıp çalıştır düğmesine tıklayınca işlemler otomatik yapıyor.

data sayfasındada benzer bir yöntem mevcuttur.

Örnek dosyamda 15 adet veri var bunların hepsine beş dakika aralığında üçer üçer mail göndermek için

1-saat dakika düğmesine tıklanır
2-kahverengi açılan liste kutusundan 00:05:00
3-turkuaz renkli nesneye 3 yazınız
4-liste kutusundan maillerin hepsi seçilir*
5-çalıştır düğmesi tıklanır.

sonuç

ilk beş dakikada listeden seçilen maillerle ilgili ilk üç tanesine mail gönderir sonraki beş dakikada sıradaki ilk üç mail adresine mail gönderir ve bitene kadar devam eder.

Diğer bir uygulamada listeden seçtiğiniz kişilere mail gönder düğmesine tıklanarak mail gönderilir.

görsel video


Bununla ilgili görsel video da ekliyorum.



web FLASH


Not kodların çalışması için Timer nesnesinin yüklü olması lazım.
Timer nesnesinin nasıl yükleneceğine dair ilgili link

http://www.excel.web.tr/f167/timer-n...mu-t78713.html

Dosyayı indiremiyenler için 10 nolu mesaja baksın
Eklenmiş Dosyalar
Dosya Türü: rar örnek maail deneme11.rar (1.66 MB, 8 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 12:10   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

1 nolu mesajdaki dosya güncellendi

web FLASH
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 13:20   #3
zeugma35
 
Giriş: 02/02/2016
Şehir: izmir
Mesaj: 56
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

" Not kodların çalışması için timer nesnesinin yüklü olması lazım. "

Hocam Timer nesnesini nasıl ekliyebilirim
zeugma35 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 13:23   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Aşağıdaki linki irdeleyiniz.
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2016, 15:45   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

1 nolu mesajdaki dosya güncellendi
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-04-2016, 13:13   #6
erkanengin
 
Giriş: 16/04/2009
Mesaj: 3
Excel Vers. ve Dili:
excel97-türkçe
Varsayılan

.Attachments.Add ("\\tsprofilesrv\TS\FolderRedirections\erkan.engin \Desktop\MAİL\cari.xls")
erkanengin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-04-2016, 13:16   #7
erkanengin
 
Giriş: 16/04/2009
Mesaj: 3
Excel Vers. ve Dili:
excel97-türkçe
Varsayılan

merhaba
mail göndereceğim excel kitaplarım Masa üstünde MAİL adlı dosyamdadır. Herbirinin isimleri excel sayfa1 de görünen isimle eşleştiğinde mail e dosyayı ekleyerek göndermesini istiyorum.
kod aşağıdaki gibidir. deneme yaptım çalışıyor. MAİL\ ' den sonra cari ünvan.xls(Örn.erkanengin.xls) yazarsam gönderiyor. Fakat ben sayfa1.b2 hücresindeki isim her değiştiğinde gönderilecek dosyanında ona göre değişmesini istiyorum. Yardım lütfen. Teşekürler

Private Sub cmdsend_Click()

cari = Sayfa1.Range("B2").Text

If cari = "" Then
MsgBox "Tedarikçi seçiniz...!", vbCritical, "İşlem Hatası ..."
Exit Sub
End If
If Sayfa1.Range("C2").Value = "" Then
MsgBox "Mail Adresi Giriniz ...!", vbCritical, "İşlem Hatası ..."
Exit Sub
End If

Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Application.DisplayAlerts = False
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = Sayfa1.Range("c2").Text '( KİME ) ALICI
.CC = Sayfa1.Range("d2").Text '( KİMDEN ) GÖNDEREN
.Subject = Sayfa1.Range("e2").Text 'KONU BAŞLIĞI
.Body = "Merhaba Sayın Yetkili," & vbCrLf & "" & vbCrLf & "İlgili aya ait hesap özetiniz ekte bilgilerinize sunulmuştur. İyi çalışmalar dileriz."
.Attachments.Add ("\\tsprofilesrv\TS\FolderRedirections\erkan.engin \Desktop\MAİL\cari.xls")
.Display
.Send
End With
Application.DisplayAlerts = True

End Sub
erkanengin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-04-2016, 14:33   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
erkanengin tarafından gönderildi Mesajı Görüntüle
.Attachments.Add ("\\tsprofilesrv\TS\FolderRedirections\erkan.engin \Desktop\MAİL\cari.xls")
Sizin sorunuzla 1 nolu mesajdaki konu ve dosya aynı şeyler değil sizin sorunuzda bir aotlook hesabının bilgisayarda kurulu olması gerekiyor.
formda arama yapın sizin sorunuzla ilgili bir çok çözümler mevcut
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 18:37   #9
baydeniro
 
Giriş: 26/01/2007
Mesaj: 3,385
Excel Vers. ve Dili:
Ofis 2016
Varsayılan

halit3 üstadım yardımlar için teşekkür ediyoruz. Outlookta birkaç hesap varsa, Excelden mail göndermek istediğimizde hangi hesaptan gitmesi gerektiğini seçebiliyor muyuz (Excelin içinde) ?
baydeniro Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-12-2017, 19:46   #10
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,519
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Dosyayı indiremeyenler için buradaki video dosyasını indirsin avi uzantısını xls yapsın dosya hazır olacaktır.

dosyayı buradan indir avi uzantısını xls yap
__________________





Forum Kuralları
halit3 Ç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:26


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden