Sorgu için arama sonuçları: mail

  1. I

    koşula göre mail atmak

    Merhaba, Birde Belirtilen koşulları sağlayan hücreler: Satır 3: $C$3,$H$3:$I$3 bu şekilde mail içine yazmış hücre içinde ne yazıyorsa onu getirebilir miyiz. Tekrar teşekkür ederim
  2. I

    koşula göre mail atmak

    Günaydın, çok teşekkür ederim Trilenium elinize sağlık, mail atma şartı da olması gerekiyordu bu durumu ifade etmemişim :( "I" sütununda bir hesaplama var. Hesaplanan değer >=0 ve <=7 koşulu oluştuğunda otomatik gönderme yapabilir miyiz.
  3. Trilenium

    koşula göre mail atmak

    Sub MailGonder() Dim OutlookApp As Object Dim OutlookMail As Object Dim i As Integer Dim rng As Range Dim cel As Range Dim bodyText As String ' Outlook nesneleri oluştur Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail =...
  4. I

    koşula göre mail atmak

    Merhaba, "I" sütunundaki hesaplanmış değerler 0 dan büyük 7 den küçük koşuluna göre ilgili satır ve satırları seçerek mail atmasını istiyorum. Destek olabilir misiniz. Teşekkür ederim.
  5. tugkan

    Outlook Onay süreci

    Merhaba, Mail gönderirken seçenekler kısmından oylama düğmesi ekleyerek evet, hayır..vb gibi sevaplar isteyebilirsiniz. Bu seçenekleri özelleştirebiliyorsunuz.
  6. N

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    Merhaba, şunun gibi bir mantıkla "Say" değişkeninin sonucunu "if/then/end if" ile kontrol ettirip makroyu sonlandırabilirsiniz: Set sh = Sheets("Kredi") Set Rng = sh.AutoFilter.Range Say= Application.WorksheetFunction.Subtotal(103, rng.Resize(, 1)) Say sonucu 1 ise sadece başlık satırı var...
  7. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    Merhaba, Filtreme sonucu boş olmasına rağmen mail atıyor, bunu nasıl engellerim ? mail sadece başlık şeklinde mail geliyor. Herkese kolay gelsin.
  8. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    Merhaba, Mailler ile alakalı son bir durum var, filtreleme sonucu boş ise mail göndermesini nasıl engellerim ? Herkese kolay gelsin,
  9. Biolightant

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...Dim yeniSayfa As Worksheet Dim dosyaYolu As String dosyaYolu = Environ("TEMP") & "\Rapor.htm" Dim objOutlook As Object Dim objMail As Object Dim strHTMLBody As String Dim fso As Object Dim htmlFile As Object Dim htmlContent As String ' B sütününda Son...
  10. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    sayın tugkan işlem çalışmaya başladığı zaman süreç çok uzun sürüyor (4 satır için ortalam 5 dakika gibi) ve gelen mail anlamsız şeklinde geliyor.
  11. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    ...sadece satırları kopyalaması, bunu da direkt hücre aralığını verip sorunu aştık, ama yapıltır esnasında kolonları dar yapıştırdığı için gelen mail içinde alanlar "#####" şeklinde geliyor, .Cells(1).EntireColumns.AutoFit şeklinde satır ekledim ama işe yaramadı. sayın pitchoute size de...
  12. E

    saat koşullu otomatik mail

    mailleri düzelttim , mail adresinde makrolarada izin verdim , aynı excel ile normal masa üzerinde işlem yapıyor, ama uzak masaüstünde bu hatayı veriyor
  13. tugkan

    saat koşullu otomatik mail

    ...Çözüm Önerileri Aşağıda, yukarıdaki noktaları kontrol edip düzelttikten sonra kodunuza ekleyebileceğiniz birkaç değişiklik bulunmaktadır: Sub Mail() Dim Sayfa As Worksheet Dim Alan As Range Dim daralan As Range Dim saydir As Long Dim DinamikAlan As String Dim emailTo...
  14. tugkan

    saat koşullu otomatik mail

    ...Kodda bazı düzenlemeler yaparak, daha sağlam bir yapı elde edebiliriz. Örneğin, aşağıda güncellenmiş bir versiyon verilmiştir: Sub Mail() Dim Sayfa As Worksheet Dim Alan As Range Dim daralan As Range Dim saydir As Long Dim DinamikAlan As String ' E-posta...
  15. D

    Belirli kriterlere göre süzüp html formatında mail gönderme.

    Merhaba, Kod normalde süzme işlemini ilgili alanları seçiyor yalnız kopyala yapıştır kısmına gelince boş alan yapıştırdığı için mail de boş geliyor. Hangi kısmında hata yapıyorum ? Teşekkür ederim. Sub MailBilgi() Zaman = Time Tarih = Date + 21 Dim EmailApp As Outlook.Application Dim Source...
  16. cavanoos

    Uyarı maili alma

    Biolightant; Bende kod yok zaten, kod arıyoruz :) Mail üzerinde de herhangi bir ayar yapılmayacak. Direkt excelden, koşula uyanlar, mail atılacak.
  17. Biolightant

    Uyarı maili alma

    ...olan yeni epostanın Yukarıda ki Menüsünden Seçenekler - Teslimi Geciktir Tıklayınız Açılan pencere de Bu Tarihten önce teslim etme seçeneği (mailin ileri teslim tarihini istediğiniz zaman belirleyebilirsiniz.) Konuyu açtığınız da ilk istediğiniz buydu sanırım ileri tarihli mail oluşturmak...
  18. D

    Uyarı maili alma

    ...ayrı bir başlık açmak istemedim, kod normalde süzme işlemini ilgili alanları seçiyor yalnız yapıştır kısmına gelince boş alan yapıştırdığı için mail de boş geliyor. Hangi kısmında hata yapıyorum ? Teşekkür ederim. Sub MailKredi() Zaman = Time Tarih = Date + 21 Dim EmailApp As...
  19. cavanoos

    Uyarı maili alma

    Biolightant; Tarih sütunu kodun içinde nerede, hangi alanı değiştireceğim. Cems'e yanıt verirken dosya eklemiştim. Onun üstünde örnek uygulama yapabilir misin ?
  20. cavanoos

    Uyarı maili alma

    Cems; Kodu denedim, gayet güzel çalışıyor. Dosyayı her açtığımda aynı faturalar için uyarı veriyor. Halbuki olması gereken daha önce uyarı verilenleri devre dışı bırakarak 160 gün şartına uyanlar için uyarı almak olmalı. Bunu nasıl yapabiliriz diye düşündüm. Uyarı verenler için mesela D...
Üst