Sorgu için arama sonuçları: mail

merhabalar, İnternette otomatik mail gönderme araştırmam sonucu aşağıdaki kodu gördüm, kullandım. Başarılı şekilde gönderiyorum ama benim gönderdiğim içerik çok fazla olduğu ve bir şeyi bulmak için filtre kullanılması gerektiği için excel eki olarak göndermem gerekiyor. Bu mümkün mü? Sub...

...üyeleri, İçinden çıkamadığım bir probleme çözüm arıyorum. Her sabah çalıştığım firmanın üretim ve tüketim değerlerini içeren otomatik bir mail alıyorum. Gelen mailleri power automate ile ilgili bir klasöre çekiyorum. Dosyada ilgilendiğim veriler B18-BE41 hücreleri aralığında. Sorun şu ki ana...

İleri Tarihli Mail - Dijital Zaman Kapsülü - DeferredDeliveryTime Şuan oluşturulacak olan bir mail içeriğini, ileri bir tarihte kişiye ulaştırılması için oluşturulan mail. ( Microsoft Exchange sunucusu veya Office 365 gibi bulut tabanlı bir posta hizmeti kullanıyorsanız) Outlook e-postayı...

Rica ederim kusura bakacak birşey yok. Bu şekilde de denedim aynı hatayı verdi

mail deneme şansım yok şu an kusura bakmayın, yazıyorum siz test edin diye olEmail in tanımlamalarını da aynı şekil değişip dener misiniz Dim olEmail As Object Set olEmail = olApp.CreateItem(0)

Selamlar Arkadaşlar Firmalarsa Satış raporlarını mail olarak göndermek için yazılmış kodlarda aşağıdaki gibi hata alıyorum. Sebebini bulamadım. Bilen arkadaşlar ilgilenebilirse memnun olurum. aldığım hata aşağıda ki gibi

Merhaba, Satırı strBody = Sheets("Toplu Mail").Range("C" & i).Value olarak değiştirip dener misiniz?

Merhaba strBody="Test 123" kısmını aynı excelde 3. kolandan aldırabilirmiyiz Sub SendEmail() Dim objOutlook As Object Dim objMail As Object Dim strTo As String Dim strSubject As String Dim i As Integer Dim strBody 'Set email properties For i = 2 To Range("A" & Rows.Count).End(xlUp).Row...

Düzelttim çok teşekkür ederim destek için (sayfa adını "Toplu Mail" olarak değiştirdim) çalıştı

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