Mail Gönderme (Outlook açılmadan)

[halit3]

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-nesnesinin-kurulumu-t78713.html

Dosyayı indiremiyenler için 10 nolu mesaja baksın

 

[halit3]

1 nolu mesajdaki dosya güncellendi

web FLASH

 

[zeugma35]

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

Hocam Timer nesnesini nasıl ekliyebilirim

 

[halit3]

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

 

[halit3]

1 nolu mesajdaki dosya güncellendi

 

[erkanengin]

.Attachments.Add ("\\tsprofilesrv\TS\FolderRedirections\erkan.engin\Desktop\MAİL\cari.xls")

 

[erkanengin]

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

 

[halit3]

.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

 

[baydeniro]

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) ?

 

[halit3]

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

 

[baydeniro]

halit3 üstadım dosyayı indirip uzantısını .xls yaptım ama olmadı.

 

[halit3]

halit3 üstadım dosyayı indirip uzantısını .xls yaptım ama olmadı.

olmadı derken ne demek istediniz anlamadım dosyayı indirim uzantısını değiştirince dosyayı açınca excel dosyası olmadımı?

10 nolu mesaj dosyayı indiremiyenler içindir dosyanın çalışması için 1 nolu mesajdaki açıklamaları yapmanız gerekiyor.

 

[baydeniro]

evet üstad. avi dosyayı indirdim. dosya adının sağına ".xls" yazdım ama dosya Excele dönüşmedi.

 

[baydeniro]

halit3 üstadım bir sorum daha olacak. Outlookta birkaç hesap varsa, Excelden mail göndermek istediğimizde hangi hesaptan gitmesi gerektiğini seçebiliyor muyuz (Excelin içinde) ?

 

[halit3]

Dosya uzantısı öyle değişmez
Klasör seçeneklerinden/dosya türleri/bilinen dosya türleri için uzantıları gizle
tikini kaldırın sonra indirdiğiniz dosya adının son 4 karekteri .avi olması lazım bunu .xls olarak değişitirin

 

[halit3]

halit3 üstadım bir sorum daha olacak. Outlookta birkaç hesap varsa, Excelden mail göndermek istediğimizde hangi hesaptan gitmesi gerektiğini seçebiliyor muyuz (Excelin içinde) ?

Bu konular daha önceden burada işlendi arama yapın

 

[baydeniro]

Teşekkür ederim üstad.

 

[halit3]

Aşağıdaki linkdeki linkleri irdeleyiniz.

http://www.excel.web.tr/search.php?searchid=3114993

http://www.excel.web.tr/f48/makro-ile-mail-gonderme-konusunda-yardym-t156712.html

 

[baydeniro]

halit3 üstadım ilginiz, hoşgörünüz, zamanınızı ayırdığınız için çok ama çok teşekkür ediyorum. Siz ve diğer üstadların sayesinde Excel bilgimiz daha da ilerliyor. Allah razı olsun hepinizden. Sağlıcakla kalın.