Merhabalar
tablodan veri çekerek oluşturduğum bir kontrol formum var. Butona basınca 15 ayrı pdf oluşup hepsini ayrı mailde atınca mail kutusu çok çabuk doluyor .Bu 15 pdf i tek mailde göndermenin yolu var mıdır ? Mevcut kod aşağıdadır.
Private Sub CommandButton1_Click()
Dim outapp As...
...Bu tabloyu Personel adlı bir sayfada tutabilirsiniz.
Insert menüsünden Module seçeneğini tıklayarak yeni bir modül oluşturun.
Sub SendEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim emailSubject As String...
Üstad altın üyeliğim bitmiş tekrar yaptım ancak hala aktifleşmediği için dosya yükleyemiyorum. Acaba mail adresini verseniz oraya göndersem olur mu dosya yı
...; tüm veri işleme girmez ama hedef işlem bulunarak ve dokunmalara da gerek kalmadan başka zemine geçici olarak aktarılır ve basımdan ya da mail ile attıktan sonra da imha edilir. Bu da dosyanızda çöp veri birikmesini ve hantallaşmasını engellediği kadar bilgilerin kişisel kalmasını sağlar ve...
ekran görüntüsü ve verilerin girisi yapıldığı sayfa
Öncelikle geri dönüş yaptığınız ve tavsiyeleriniz için çok teşekkürler.
Bütün her şey sayfadan görüntü alınmasıyla başlıyor.
Bu ekranda bahsettiğim bilgilerin girildiği , görüntüleme yaptıkları ve ekran görüntüsü alıp gönderdikleri ekran...
Bunun yerine form bir tuş ile dokunulmadan da mail olarak atılabilir. xlveryhidden ayarı olan bir sayfaya girerek ekran goruntusu almanın mantığı yok bu şekilde data manipule edilebilir. Dosyanız ozel değilse bir dış servera yukleyip linli sorunuza ekleyin, ya da ;
1. Gizli Sayfanın Verilerini...
...otomatik (xlSheetVeryHidden) olarak gizlenmiş bir sheet sayfasına kayıt edilmekte. Gün sonundada Modüle girip ekran görüntüsü alarak mail atmaktalar.
Zaman geçtikçe gün içerisinde yapılan veri girişleri arttığından sürekli sürekli ekran görüntüleri almakla ve bunu mail olarak göndermekle...
Merhaba yeniden,
Sizin kodlar da ki
With Yeni_Mail
.Subject = Range("AX14").Value
.Body = Range("AX21").Value
.Attachments.Add Yol & "\" & Dosya_Adi
.Save
If Range("AX10").Value = "" Then
.To = ""
.Display
Else...
Şu şekilde kod görünümü oluştu
Sub GONDER()
Set OutApp = CreateObject("Outlook.Application") ' Yeni bir e-posta öğesi oluştur
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Mail ' Alıcı e-posta adresi
.CC = mailcc ' Alıcı ek e-posta adresleri (gözükür)
.Subject = mailkonu ' E-posta konusu...
Merhaba,
Yukarı da sizin kodlarda [ With Yeni_Mail ] ile başlayan kod parçası ile
alttaki örnek te [ With OutMail ] ile başlayan kod parçasının devamında [ .CC ]
Merhaba,
Forumdan bulduğum aşağıdaki kod ile dosyayı pdf ye çevirip mail göderebiliyorum.
İsteğim 2 nci kişiye de gönderebilmek. Başka bir değişile CC göndermek için kod ilavesi rica ediyorum.
Teşekkür ediyorum
Sub MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
If...
Korhan bey ilginiz için teşekkürler. Dosyayı indirdim, ama ARAMA sayfasında yazdığınız köprü bir mail bağlantısı açıyor. Kendim LİSTE sayfasındaki köprüleri klasör adresi olacak şekilde denedim . Ama bir netice alamadım. Excel 365 kullanıyorum.
Merhaba Hocalarım,
Bir konu hakkında fikir almak istiyorum. Excel her açılışında kullanıcıya sezdirmeden açıldığı bilgisayarın seri numarasını ya da kullanıcı adını outlook vs. program açmadan belirlediğim bir mail adresine mail olarak gönderebilir mi? Eğer mümkünse desteğinizi rica ediyorum.
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.