Sub MailGonder()
Dim EmailApp As Outlook.Application
Dim Source As String
Dim myRange As Range
Dim EmailItem As Outlook.MailItem
Dim ExcelDosyaYolu As String
' İstenilen hücre aralığını seçiyoruz (A1:A10, B1:B10 vb.)
Set myRange = Union(Range("A1:A10")...
..._ ' Burada 'UsedRange' yerine sadece seçilen aralığı belirliyoruz
HtmlType:=xlHtmlStatic)
.Publish (True
Sub MailGonder()
Dim EmailApp As Outlook.Application
Dim Source As String
Dim myRange As Range
Dim EmailItem As Outlook.MailItem
Dim ExcelDosyaYolu...
çok teşekkür ederim.
Bunu uyguladığımda maili gönderiyor ama run-time error'70': permission denied hatası veriyor.debug dediğimde Kill ExcelDosyaYolu sarı ile işaretli. mail gitmesinde bir sıkıntı yok ama bu sonra sorun çıkarır mı bilmiyorum.
birde mail giderken sadece excel eki olarak...
Sub MailGonder()
Dim EmailApp As Outlook.Application
Dim Source As String
Dim myRange As Range
Dim EmailItem As Outlook.MailItem
Dim ExcelDosyaYolu As String
Set myRange = Selection
Set EmailApp = New Outlook.Application
Set EmailItem =...
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ı...
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
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...
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...
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ü ?
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.