Kullanıcılar müşterilerine veya patronlarına e-posta gönderdiklerinde, takip etmek oldukça zordur. Bu durumda Excel kullanışlı olur. Bu nedenle, "otomatik e-posta gönder Excel için Görünüm" zaman kazandıran bir yaklaşım olduğu kanıtlanmıştır. Excel VBA Makroları ve HİPERLİNK işlevi otomatik e-postalar gönderebilir veya Excel girişlerini kullanarak bir taslak oluşturabilir.

Diyelim ki elimizde Çalışan Yeniden Yapılandırılmış Maaş Excel'deki verileri kullanarak otomatik e-posta göndermek istiyoruz Görünüm .

Bu makalede, çoklu varyantları gösteriyoruz VBA Makroları ve HİPERLİNK 'den otomatik e-posta göndermek için Excel için Görünüm .

Excel Çalışma Kitabını İndirin

⧭ Microsoft Visual Basic'i Açma ve Modüle Kod Ekleme

Herhangi bir yöntemi göstermeye geçmeden önce, bir dosyayı açmanın ve yerleştirmenin yollarını bilmek gerekir. Modül içinde Microsoft Visual Basic Excel'de.

🔄 Microsoft Visual Basic'i Açma: Çoğunlukla 3 açmanın yolları Microsoft Visual Basic Pencere.

1. Klavye Kısayollarını Kullanma: Basın ALT+F11 tamamen açmak için Microsoft Visual Basic Pencere.

2. Geliştirici Sekmesini Kullanma: Bir Excel çalışma sayfasında, Şuraya gidin Geliştirici Sekmesi > Seçiniz Visual Basic . Bu Microsoft Visual Basic penceresi görünür.

3. Çalışma Sayfası Sekmesini Kullanın: Herhangi bir çalışma sayfasına gidin, Sağ Tıklama üzerinde> Seçin Kodu Görüntüle (bu kitaptan Bağlam Menü ).

🔄 Microsoft Visual Basic'te Modül Ekleme: Şunlar var 2 eklemenin yolları Modül içinde Microsoft Visual Basic Pencere,

1. Sayfanın Seçeneklerini Kullanma: Açtıktan sonra Microsoft Visual Basic penceresinde, bir Çalışma Sayfası > Sağ Tıklama üzerinde> Seçiniz Ekleme (bu kitaptan Bağlam Menüsü )> sonra seçin Modül .

2. Araç Çubuğunu Kullanma: Seçerek de yapabilirsiniz Ekleme (bu kitaptan Araç Çubuğu )> sonra seçme Modül .

Excel'den Outlook'a Otomatik E-posta Göndermenin 4 Kolay Yolu

Yöntem 1: Outlook Kullanarak Seçilen Alıcılara Otomatik Olarak E-posta Göndermek için VBA Makrosu Kullanma

Bir Makro yürütme oluşturmak istiyoruz Düğme Bu sayede seçilen alıcılara sadece bir tıklama ile posta gönderebiliriz.

Adım 1: Şuraya git Ekleme tab> Şekiller > Sunulan şekillerden herhangi birini seçin (örn, Dikdörtgen: Yuvarlatılmış Köşeler ).

Adım 2: Sürükleyin Artı Simge eklemek istediğiniz her yerde Şekil aşağıdaki resimde gösterildiği gibi.

Adım 3: Tercih ettiğiniz bir Şekil Dolgusu ve Anahatlar Renk ardından üzerine sağ tıklayın. Metni Düzenle metin eklemek için.

Adım 4: Kullanın talimat açmak için Microsoft Visual Basic ve yerleştirin Modül . Aşağıdaki Makroyu Modül .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' .Send kullanabilirsiniz End With Next r End Sub 

kodunda ➤,

1 - değişkenleri aşağıdaki gibi bildirerek makro prosedürünü başlatın Nesne ve String .

2 - koşmak VBA İÇİN seçimdeki her satır için döngü oluşturarak E-posta'nın Gönder , Konu ve Vücut satır girişlerini kullanarak.

3 - değişkenleri atayın.

4 - gerçekleştirmek VBA ile doldurmak için deyim Görünüm gibi öğeler Gönder , Posta Konusu vb. Burada makro sadece Ekran ortaya çıkarmak için komut Görünüm Ancak, bir e-posta taslağı ile Gönder komutu yerine veya sonrasında kullanılır Göster, Görünüm oluşturulan e-postayı seçilen alıcılara gönderecektir.

5 - bitirmek VBA İÇİN Döngü.

Adım 5: Çalışma Sayfasına dönün. Şekil sonra seçin Makro Atama bir şey yok. Bağlam Menüsü seçenekler.

Adım 6: Makroyu seçin (örn, ExcelToOutlookSR ) altında Makro adı seçin ve Makro içinde seçeneği olarak Bu Çalışma Kitabı . üzerine tıklayın TAMAM. .

Adım 7: Şimdi, çalışma sayfasında bir veya birden fazla çalışan seçin ve ardından Şekil Düğmesi .

Adım 8: Excel istemleri Görünüm ve seçilen çalışanlara e-posta oluşturur veya gönderir. Çalışanlardan ikisini seçtiğinizde, Görünüm gönderilmeye hazır iki farklı e-posta taslağı oluşturur.

Makro yalnızca Ekran Komuta, Görünüm sadece e-posta taslağını göndermeden görüntüler. Gönder adresinden otomatik olarak e-posta göndermek için Excel için Görünüm hücre girişlerini kullanarak.

Daha fazlasını okuyun: Otomatik Olarak E-posta Göndermek için Excel Makrosu (3 Uygun Örnek)

Yöntem 2: Belirli Hücre Değerine Bağlı Olarak Excel'den Outlook'a Otomatik Olarak E-posta Gönderme

Hedeflere ulaştıktan sonra otomatik e-posta göndermek istersek ne olur? Excel için Görünüm Bir Makro kodu bu işi kolaylıkla yapabilir.

Varsayalım ki Üç Aylık Satış Verileri Aşağıda gösterildiği gibi, bir hedefe ulaştıktan sonra (örn, Satış> 2000 ) otomatik olarak Görünüm Excel'den atanmış bir e-posta kimliğine e-posta göndermek için.

Adım 1: Aşağıdaki makro kodunu herhangi bir Modül .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Selamlar Efendim" & vbNewLine & vbNewLine & _ "Satış noktamızın üç aylık satışları hedeflenenden fazladır." & vbNewLine & _ "Bu bir onay mailidir." & vbNewLine & vbNewLine & _ "Saygılarımla" & vbNewLine & _ "Outlet Ekibi" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Satış Hedefine Ulaşma Bildirimi" .Body = mMailBody .Display 'veya .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Yukarıdaki görüntüden, bölümlerde,

1 - bir hücre atayın (örn, F17 ) çalıştırmak için bir aralık içinde VBA EĞER ifadesi ile sonuçlanırsa Doğru makro, yürütülmesi için başka bir makroyu çağırır.

2 - değişken türleri bildirmek ve bunları doldurmak için atamak Görünüm 'in girişleri.

3 - gerçekleştirmek VBA ile deyimini e-posta girişlerine değişken atamak için kullanın. Gönder komutu yerine Ekran E-postaları incelemeden doğrudan göndermek istemeniz durumunda. Alıcı e-postası makro içine eklenir. Alıcının e-posta kimliğinin otomatik olarak eklenmesini istemeniz durumunda alternatif yöntemler kullanın.

4 - belirli değişkenleri atamadan temizleyin.

Adım 2: Kullanın F5 tuşuna basarak makroyu çalıştırın. Bir dakika içinde Excel Görünüm Aşağıda gösterildiği gibi otomatik olarak oluşturulan bir taslak e-posta ile Gönder veya otomatik gönderimi kullanarak Gönder makrodaki komut.

Daha fazlasını okuyun: Excel'den Hücre İçeriğine Göre Otomatik Olarak E-posta Gönderme (2 Yöntem)

Benzer Okumalar

• Paylaşılan Bir Excel Dosyasında Kimlerin Olduğunu Görme (Hızlı Adımlarla)
• Excel'de Çalışma Kitabını Paylaşmayı Etkinleştirme
• Excel Dosyası Birden Fazla Kullanıcı İçin Nasıl Paylaşılır
• Excel'den Ek ile E-posta Göndermek için Makro Nasıl Uygulanır

Yöntem 3: Outlook ile Excel'den Etkin Çalışma Sayfası ile E-posta Göndermek için VBA Makrosu Kullanma

Alternatif olarak, bir dosyanın tamamını göndermemiz gereken durumlar da olabilir. Aktif Sayfa atanmış bir e-posta adresine. Bu durumda, bir VBA Özel Fonksiyonu bir makro içinde çağrılacak.

Adım 1: Aşağıdaki makroyu Modül .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'or you can use .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Quarterly Sales Data" mBd = "Greetings Sir" & vbNewLine & vbNewLine & _ "Lütfen bu postanın ekinde Outlet'in Üç Aylık Satış verilerini bulun." & vbNewLine & _ "Bu bir bildirim postasıdır." & vbNewLine & vbNewLine & _ "Regards" &vbNewLine & _ "Outlet Ekibi" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Posta taslağı başarıyla oluşturuldu veya Gönderildi" End If End Sub 

➤ Yukarıdaki görüntüden, kodun bölümleri,

1 - değişkenleri bildirmek ve ayarlamak.

2 - kullanarak komutları atayın VBA ile ifadesini kullanın. Ekran veya Gönder sırasıyla e-postaları incelemek veya doğrudan göndermek için komut.

3 - önceden ayarlanmış değişkenleri temizler.

4 - atamak VBA ile metinlerle komutlar.

5 - yürütmek VBA Özel Fonksiyonu .

Adım 2: Makroyu çalıştırmak için F5 ve anında Excel aşağıdakileri ortaya çıkarır Görünüm Aşağıdaki resme benzer bir taslak e-posta ile gözden geçirin. Daha sonra, göndermek için hazırsınız.

Daha fazlasını okuyun: Excel Kullanarak Outlook'tan Toplu E-posta Gönderme (3 Yol)

Yöntem 4: HYPERLINK İşlevini Kullanarak Excel'den Outlook'a Otomatik E-posta Gönderme

Bu HİPERLİNK işlevi, Excel hücrelerinde tıklanabilir bir bağlantı oluşturarak Görünüm Excel'den otomatik e-postalar göndermek için bir araç olarak.

Adım 1: Aşağıdaki formülü hücreye yazın H5 .

Bu HİPERLİNK fonksiyonu şunları alır "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 olarak link_location ve "Buraya Tıklayın" olarak friendly_name .

Adım 2: Vurmak GİRİŞ bağlantıyı yapıştırmak için. Ardından bağlantıya tıklayın.

Adım 3: Excel sizi şuraya götürür Görünüm . Ve görüyorsun ki Görünüm girişleri Excel'den atanan verilerle doldurulur. Gönder .

Adım 4: Sürükleyin Doldurma Kolu Formülü diğer hücrelere uygulamak için.

Daha fazlasını okuyun: Excel'de Koşul Karşılandığında Otomatik Olarak E-posta Gönderme

Sonuç

VBA Makro Varyantları ve HİPERLİNK işlevi Excel'den Outlook'a otomatik e-postalar gönderirken yardımcı olabilir. Umarım yukarıda açıklananlar arasında tercih ettiğiniz yöntemi bulursunuz. Başka sorularınız varsa veya eklemek istediğiniz bir şey varsa yorum yapın.