Excel'de düğme tıklanırsa e-posta nasıl gönderilir?

Excel çalışma sayfasındaki bir düğmeye tıklayarak Outlook üzerinden e-posta göndermeniz gerektiğini varsayarsak, nasıl yapabilirsiniz? Bu makale, bunu ayrıntılarıyla elde etmek için bir VBA yöntemi tanıtacaktır.

VBA kodu ile buton tıklanırsa e-posta gönderin

VBA kodu ile buton tıklanırsa e-posta gönderin

Excel çalışma kitabında bir Komut Düğmesi tıklanırsa Outlook üzerinden bir e-posta göndermek için lütfen aşağıdaki işlemleri yapın.

1. Tıklayarak çalışma sayfanıza bir Komut Düğmesi ekleyin. Geliştirici > Ekle > Komut Düğmesi (ActiveX Kontrolü). Ekran görüntüsüne bakın:

2. Eklenen Komut Düğmesine sağ tıklayın, ardından Kodu Görüntüle aşağıdaki ekran görüntüsü gibi sağ tıklama menüsünden.

3. Açılışta Uygulamalar için Microsoft Visual Basic penceresinde, lütfen Kod penceresindeki orijinal kodu aşağıdaki VBA komut dosyasıyla değiştirin.

VBA kodu: Excel'de düğme tıklanırsa e-posta gönderin

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

notlar:

1). Lütfen e-posta gövdesini ihtiyaç duyduğunuz şekilde değiştirin. xMailBody koddaki satır.

2). Değiştirin Eposta Adresi alıcı e-posta adresi ile aynı hizada .To = "E-posta Adresi".

3). İhtiyaç duyduğunuz Cc ve Bcc alıcılarını belirtin .CC = "" ve .Bcc = "" bölümleri.

4). E-posta konusunu satırda değiştirin .Subject = "Düğmeye tıklayarak e-posta gönderimini test edin".

4. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.

5. Tıklayarak Tasarım Modunu kapatın. Geliştirici > Tasarım Modu. Ekran görüntüsüne bakın:

Şu andan itibaren, Komut Düğmesine her tıkladığınızda, belirli alıcılar, konu ve gövde ile otomatik olarak bir e-posta oluşturulacaktır. Lütfen e-postayı tıklayarak gönderin Gönder düğmesine basın.

not: VBA kodu yalnızca Outlook'u e-posta programınız olarak kullandığınızda çalışır.

İlgili yazılar:

• Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Çalışma kitabı Excel'e kaydedildiğinde Outlook üzerinden nasıl e-posta gönderilir?
• Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?
• Excel'de son tarih karşılanmışsa e-posta nasıl gönderilir?
• Çalışma kitabı Excel'de güncellenirse e-posta hatırlatıcı veya bildirim nasıl gönderilir?