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()...
Private Sub CommandButton1_Click()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Dim mesaj As String
Dim yol As String
Dim xiskurnox As String
Dim xfirmadix As String
Dim i As Integer
Dim onem As Integer
Dim s1 As Worksheet
Dim S2 As Worksheet...
Merhaba arkadaşlar. forumda aradım ancak bu tarz bir konu bulamadım hep bir butona göre mail gönderimi yapabiliyoruz. benim ricam ise,
a3 hücresi dolu ise belirlenen adreslere a3 hücresini kopyalayıp mail olarak göndersin.
mevcut bir mail gönderme makrom var zaten o makronun içine bunu da...
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.