VBA ile yapmak isterseniz.
Sub RangePdfMail()
Dim selectedRange As Range
' Kullanıcıdan hücre aralığı seçmesini isteyin
On Error Resume Next ' Kullanıcı seçim yapmadıysa hata almamak için
Set selectedRange = Application.InputBox("Lütfen Mail Göndermek istediğiniz hücre...
...istediğiniz alanı seçin
Excel menüden - Sayfa Düzeni - Yazdırma Alanı - Yazdırma alanı Belirle yapın
Farklı kaydet le Excel i PDF e dönüştürün
mail hazırlayın PDF dosyanızı ek olarak ekleyin gönderin
Excel e geri dönün
Excel menüden - Sayfa Düzeni - Yazdırma Alanı - Yazdırma alanı Temizle yapın
Exel sayfasında belli bir bölümü seçtikten sonra seçilen dökümü pdf olrak iletmek istiyorum. Seçilen ksıım dışındakileri göndermesini istemiyorum. Excel de sayfayı komple pdf olrak iletiyor, ama ben sadece seçilen bölümü göndermesini istiyorum.
pc nizde outlook kurulu mu. excelinizde outlook tan mail gönderme kodları hazır sadece pdf kısmı mı eklenecek. yoksa outlookdan mail atma kodu da mı yazılacak.
hocam merhabalar bu kod kendi bilgisayarımda çalışırken, diğer bilgisayarlarda "Path not found" hatası verip biçimi atmıyor diğer bilgisayarlarada "123" renk özelleştirmesini yapmamıza rağmen neden kaynaklanıyor olabilir hata
...= True
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
Dim objOutlook As Object
Dim objMail As Object
' Outlook mail oluşturma
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
' Mail oluşturup...
Merhaba,
Özetle, Excel dosyasına gerçek mail adresi ve gerçek şifreleri ile giriş yapmak mümkünmüdür ? Yani birden çok kişinin kullandığı bir excel dosyasına, kişiler gerçek mail adresleri ve o mail adreslerinin gerçek şifreleri ile giriş yapmaları sağlanabilir mi ? Burada, kişilerin mail...
Merhaba , Ekteki tabloda yardıma ihtiyacım var. Bu konuda yardımcı olursanız minnettar karılım.
yasinkoc477@gmail.com mail adresime paylaşabilirsiniz.
Teşekkürler.
Selamlar,
run-time error '1004' hatası veriyor ve maili göndermiyor. debug dediğimde aşağıdaki kodları sarı olarak gösteriyor.
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _...
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
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.