çalışıyor teşekkür ederim ama yanlış ifade ettim galiba -20 üzerindeki ilgili satırı p sutunundaki ilgili mail adresine göndersin şeklinde değiştirmeniz mümkünmü ,değerli desteğiniz için teşekkür ederim
Merhaba,
ekte yer alan excelde g sutunundaki -20 üzerindeki satırı p sutunundaki ilgili kişiye göndermesi için kod yazmaya çalıştım ama başaramadım,
yardımcı olabilirseniz çok sevinirim,saygılarımla.
...= 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...
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 =...
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.