[Yardım]  Makro ile gönderilen maillere imza ekleme

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Makro ile gönderilen maillere imza ekleme

İleti#1)  cerci07 » 14 May 2022 10:30

Merhabalar

Makro ile gönderdiğim maillere imza ekleyemedim maalesef. Pek çok yere baktım paylaşılanları uyarlamaya çalıştım başarılı olamadım. Ekte örnek dosyayı paylaşıyorum yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cerci07
Yeni Başlamış
 
Kayıt: 30 Oca 2015 21:50
Meslek: işçi
Yaş: 39
İleti: 80
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Makro ile gönderilen maillere imza ekleme

İleti#2)  Tarkan VURAL » 17 May 2022 13:04

Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Makro ile gönderilen maillere imza ekleme

İleti#3)  cerci07 » 17 May 2022 20:36

Tarkan hocam cevabınız için teşekkür ederim. Konuyu açmadan önce bu konuyu da inceledim fakat uyarlayamamıştım.
Geldiğim son noktada imza eklemeyi başardım fakat imzada yer alan kurumsal logo kısmı maalesef çıkmıyor. Bu makroya ekleme yaparak logonun da çıkması mümkün oluyorsa çok güzel olacak, teşekkür ederim.


Kod: Tümünü seç
Sub MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    Dim S1 As Worksheet, X As Long
   
    Set Outlook_App = CreateObject("Outlook.Application")
    Set S1 = Sheets("Sayfa1")
   
    For X = 2 To S1.Cells(S1.Rows.Count, 1).End(3).Row
        If S1.Cells(X, 4) = "" Then
            Set Outlook_Mail = Outlook_App.CreateItem(0)
            With Outlook_Mail
                .Display
                .To = S1.Cells(X, 3)
                .CC = ""
                .Subject = S1.Cells(X, 2)
                .HTMLBody = "<table border=""1""><tr><td>Sayin yetkili,<table border=""1""><tr><td> </td></tr><tr><td>" & S1.Cells(X, 1).Value & "</td></tr>" & .HTMLBody
                .BodyFormat = 3
                .Save
                .Send
                S1.Cells(X, 4) = "Gönderildi."
               
            End With
        End If
    Next
   
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Kullanıcı avatarı
cerci07
Yeni Başlamış
 
Kayıt: 30 Oca 2015 21:50
Meslek: işçi
Yaş: 39
İleti: 80
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe