Sorgu için arama sonuçları: mail

strSubject = Sheets("Toplu Mail").Range("B" & i).Value ( bu satırda hata aldım)

Merhaba, A sütununda mail adreslerinin 2. satırdan başladığını ve B sütununda konular olduğunu ilettiğiniz için mailleri teker teker göndereceğinizi varsayarak aşağıdaki kod işinize yarayabilir. Kontrol etmeniz amacı ile kod içindeki ".Send" ifadesi yerine göndermeden görüntülemek için...

...Aşağıdaki kodu dener misiniz ? Dim Outlook As Object, yeni As Object, i As Long Dim x As Integer Dim sonsat As Integer Dim smail As Worksheet Set Outlook = CreateObject("Outlook.Application") Set smail = ThisWorkbook.Sheets("Toplu Mail") Set yeni =...

Merhabalar, aşağıdaki kodu excelde "Toplu Mail" adlı çalışmasayfasının 1.sayfasındaki A sütunundaki mail adreslerine toplu mail atacak şekilde derleyebilirmiyiz.(office 365 için) B sutununda da konu olacak şekilde Sub SendEmail() Dim objOutlook As Object Dim objMail As Object Dim...

rica ederim mail gönderdim

ilginiz için çok teşekkür ederim. Ben bu dosyayı buradan açamıyorum mail atma şansınız varmı. çok tşk ederim tekrardan. erdalate@yahoo.com

Merhaba, Excel dosyası maille gönderildiğinde Sayfa5 te veri yoksa diğer sayfaların görünmesini önlemek istiyorum. Mail den açsa bile diğer sayfaları gizlemek mümkün mü ?

...aşabilir. Ya da sayfadan veri kopyalanmasını hatta dosyanın kendisinin kopyalanmasını engelleyebilir usb girisine kapatarak ya da mail ekine konarak başka makineye taşınmasını, kendi sabit diskinizde çalışacak şekilde ayarlayarak engelleyebilirsiniz. Dosya taşınsa bile çalışmayacak hatta...

...If IsNumeric(currentValue) Then If currentValue >= 0 And currentValue <= 7 Then If .Cells(i, "J").Value <> "Mail Gönderildi" Then bodyText = bodyText & "Satır " & i & ": " bodyText = bodyText & "G = " &...

Teşekkür ederim ilginiz için pitchoute, mail içine metin olarak yazıyor. Ama otomatik olarak mail atmıyor, tarih değiştiğinde "I" sütununda kalan gün sayıları değişmekte. bu hesaplama olduğunda eğer sonuç <=7 olursa otomatik mail atmasını istiyorum. Bunu sitede bulduğum örneklerde farklı...

Yardımcı olabilmek adına, @Trilenium kodunu şu şekilde revize edebilirsiniz; Sub MailGonder() Dim OutlookApp As Object Dim OutlookMail As Object Dim i As Long Dim bodyText As String Dim lastRow As Long Set OutlookApp = CreateObject("Outlook.Application") Set...

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

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.

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 =...

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.

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.

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...

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.

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

...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...