...bilgiler, "Departman" Sheetine departman bazlı makro ile gruplanarak gelmektedir. benim yapmak istediğim; Departman Sheetine grublanan Müdürlük isimlerine ait tabloyu, "Mail" sheetinde tanımlı eşleşen müdürlük e mail adresine ayrı ayrı mail göndermek istiyorum.
Bu konuda yardımcı olabilirmisiniz.
Hocam cevabınıza teşekkür ederim.
Yalnız şöyle bende zaten 2 hesap ekli (aslında 3 sayılır)
Hotmail hesabım
Office 365 hesabım
Şirket mail hesabım
Hesap ekle tıklıyorum, bu çıkıyor.
Hesabımı kendim ayarlamak istiyorum diyorum. Bu çıkıyor
Google seçiyorum, bu çıkıyor.
Merhaba,
varmış öyle bir şey ( DeferredDeliveryTime )
Tabi o saatte Outlook Açık ve internet bağlantısı olmalı.
Sub PostdatedEmail()
Dim objOutlook As Object
Dim objMail As Object
Dim strTo As String
Dim strSubject As String
Dim strBody As String
Dim teslimZamani As...
Ya da mail atmak degil de dosyayı her iş günü açıyorsanız 160 gun sonra msgbox ile de uyarı almanız mumkun olabilir ...
Sub CheckExportDates()
Dim ws As Worksheet
Dim lastRow As Long
Dim exportDate As Date
Dim i As Long
Dim alertDate As Date
Dim currentDate As Date...
...cift tıkladıgınızda da veri giriş sayfasına tum satır datası atılacak. Bundan sonra ister print alırsınız ister .pdf ye cevirip degistirilemez mail eki yaparsınız ve gonderirsiniz, ister ad ya da tc ye gore bir klasorde toplarsınız ve toplu basarak adrese postalarsınız.
Butun bunlardan...
...mi bilmiyorum.
Sizinle paylaşmak istedim, fikir almak istedim.
İhracat listesi dosyamız var. İhracatın yapıldığı tarihten 160 gün sonra bankalarda işlem yapmamız gerekiyor.
Biz bu işlemi manuel olarak takip ediyoruz. Peki şöyle yapılabilir mi ?
160 gün sonra mail adresime uyarı gelebilir mi ?
...teşekkürler sayın pitchoute. Kodların çalışmasında yine bir sorun çıkmıyor "e posta oluşturuldu ve görüntülendi" mesajı çıkıyor ama gönderdiğim mail adresine posta gitmiyor. (posta gönderme iletisi) görüntüsünü de gönderiyorum. Dosyanın en son halini gönderiyorum. Size zahmet olacak ama...
Maili göndermeden önce outlook'u açıyor.
Dim OutlookApp As Object
On Error Resume Next
Set OutlookApp = GetObject(, "Outlook.Application")
If OutlookApp Is Nothing Then
Set OutlookApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0...
Merhaba arkadaşlar.
Ekte gönderdiğim dosyada Kodlarda bir sorun çıkmıyor. Ve en sonunda "Mail başarıyla gönderildi" mesajını veriyor ama gönderdiğim mesajlar gitmesi gereken mail adreslerine gitmiyor. Yardımcı olursanız çok sevinirim.
Yardimseverliginiz icin cok cok tesekkur ederim, yine ben beceremedim sanirim, size mail adresi yazssan excel dosyasi olarak sizden alsam olur mu, sedatelmas@hotmail.com gonderemezssenizde caniniz sagolun
...araç var bunların vize sigorta kasko gibi yapılması gerekiyor ve her seferinde ben unutuyorum. ve malum patrondan fırça yiyorum siz üstadlarımdan Plaka,tarih,vize sigorta kasko gibi bana 1 hafta önceden mail atarak anımsatacak bir excell tablosu lazım ilgilenen arkadaşlara şimdiden tşk.ederim
...araç var bunların vize sigorta kasko gibi yapılması gerekiyor ve her seferinde ben unutuyorum. ve malum patrondan fırça yiyorum siz üstadlarımdan aşagıda bulunan dosyaya günü gelmeden bana 1 hafta öncesi mail atmasını istiyorum beni büyük bir sıkıntıdan kurtarırsınız. şimdiden çok teşekkür ederim
Öncelikle bilginize emeğinize sağlık. Haftalardır çözmeye çalıştığım sorunuma yardımcı oldunuz çok teşekkür ederim. Son bir sorum olacak; PDF yerine excel dosyası olarak yapmak istesem neyi değiştirmem gerek?
...21 Eylül 2024 17.20 yazdım. Onay kutusu ekledim. "Evet" dersen yine anında gönderiyor "Hayır" dersem hiç göndermiyor. Yani ben Excel dosyasını kapatsam 17.20'de mail göndermiyor.
Belki ben yanlış anlattım. Ben I4 hücresine 21 Eylül 2024 17.20 yazacağım ve dosyayı kapatacağım. 17.20'de mail...
Hocam, şu şekilde sayfa kod alanı oldu. Zamanı yazıp gönder diyorum. Anında gönderiyor. Zamanı girdikten sonra başka bir şey mi yapacağım?
Enter yapsam, TAB yapsam hatta başka hücreye tıklasam mail anında gidiyor.
...' Bellek temizliği
Set tempSheet = Nothing
End Sub
Ben PDF dosyası yaptım siz Excel dosyası da yapabilirsiniz
Hatta bu dosyayı direk mail atabilirsiniz artık isteğinize göre değişir.
Oluşan Rapor.pdf dosya Dizaynını daha düzgün olmasını isterseniz
manuel olarak :
Dizaynı düzgün bir...
Arkadaşlar, sayın hocalarım, kullandığım bir mail dosyası var.
Normal çalışıyor.
Bunu I4 hücresine yazacağım zamanda otomatik göndertmek mümkün mü?
Teşekkür ederim.
Saygılarımla.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.