Hocam, şu şekilde sayfa kod alanı oldu. Zamanı yazıp gönder diyorum. Anında gönderiyor. Zamanı girdikten sonra başka bir şey mi yapacağım?
Enter yapsam, TAB yapsam hatta başka hücreye tıklasam mail anında gidiyor.
Aşağıdaki kodu çalışma sayfasının kod penceresine yapıştırın:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("I4")) Is Nothing Then
If Target.Value <> "" Then
Call CommandButton1_Click
End If
End If
End Sub
Ardından...
Private Sub CommandButton1_Click()
Dim outapp As Outlook.Application
Dim outmail As Outlook.MailItem
Dim i As Integer
Dim gecicipath As String
Dim pdffile As String
Dim attachmentsFolder As String
Dim pdfFiles() As String
Dim attachment As Variant
Dim...
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...
Öncelikle, Excel dosyanızda her personelin bilgilerini içeren bir tabloya ihtiyacınız var. Örnek bir düzen şu şekilde olabilir:
ABCD
İsim
E-posta
PDF Dosya
Konu
Ali Veli
ali@example.com
ali.pdf
Ders Programı
Ayşe Yılmaz
ayse@example.com
ayse.pdf
Ders Programı
Bu tabloyu Personel...
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...
Merhaba,
Option Explicit
Sub HucreFotoToOutlook()
Dim mailkonu As String
Dim Mail As String
Dim mailcc As String
Dim mailmesaj As String
Dim sonsatir As Long
Dim mailHTML As String
Dim ResimAlan As Range
Dim OutApp As Object
Dim OutMail As Object
Dim...
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir = Cells(Rows.Count, "I").End(1).Row...
teşekkürler ama hata veriyor,bu adımda. picPath = ThisWorkbook.Path & "\temp_image.png"
şunu farkettim makro içinde adımlıyordum dosya içine döndüğümde tuhaf bir ekran görüntüsü almış ): excelin kendi içerisine tüm satırların arka planını silip gölgeli bir ekran görüntüsü atmış.
bu ekran...
Sub mail_gonder()
Dim alan As Range
Dim ws As Worksheet
Dim pic As Picture
Dim picPath As String
Dim shp As Shape
mailkonu = Range("AD1").Value
Mail = Range("AD2").Value
mailcc = Range("AD3").Value
mailmesaj = Range("AD4").Value
sonsatir =...
Merhaba
Belirli bir alanı seçerek diğer konu kişi mail iç yazısı alanları yazıp mail gönderen bir makrom var. Bu seçili alanı mail içine yapıştırmasını değil bu seçili alanın ekran görüntüsünü almasını istiyorum ama bir türlü çeviremedim.
Sub mail_gonder()
Dim alan As Range...
Merhaba
Outlookten otomatik olarak cevplamak için bir makro yazdım.
müşterin mail adreslerini k koluna maüşteri maillerin @ sonraki uzntılarını yazdım
mailde gelen göre sorgulama yapıp G kolunda bulunan mail adreslerini ekleyip ilgili kişilere mail göndermesi için makro yazdım
hatayı...
Outlook'ta istediğiniz özelliklere sahip bir e-posta göndermek için aşağıdaki adımları takip edebilir ve VBA (Visual Basic for Applications) kullanarak bir makro oluşturabilirsiniz. Bu makro, her müşteri için ayrı ayrı e-postalar gönderir, alıcıların birbirlerinin e-posta adreslerini görmemesini...
Merhabalar,
Aşağıda kullanmış olduğum kod mevcut. Bu kod ile excel de seçili hücreleri mail olarak gönderebiliyorum. Ancak bu kodun güvenilirliği konusunda endişelerim var. Kod okuması ve içeriğinden anlayan arkadaşlar rica etsem kodu inceleyip güvenlik açısından bir tehdit olup olmadığı...
Butonda aşağıdaki mail gönderme kodlarını içeren kod mevcut.
Bu bir modül ve birden fazla butona bu kod atanmış durumda.
Yukarıda hazırlamış olduğunuz kodu tam olarak nereye yazmam gerek yardımcı olur musunuz?
Private Sub CommandButton1_Click()...
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.