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

Diyelim ki bir Excel çalışma sayfasındaki bir düğmeye tıklayarak Outlook üzerinden bir e-posta göndermeniz gerekiyor, bunu nasıl yapabilirsiniz? Bu makale, bu işlemi gerçekleştirmek için detaylı bir VBA yöntemini tanıtmaktadır.

VBA kodu ile düğme tıklanırsa e-posta gönderin

VBA kodu ile düğme tıklanırsa e-posta gönderin

Lütfen aşağıdaki adımları izleyerek Excel çalışma kitabında bir Komut Düğmesi tıklandığında Outlook üzerinden e-posta gönderin.

1. Çalışma sayfanıza bir Komut Düğmesi eklemek için Geliştirici > Ekle > Komut Düğmesi (ActiveX Kontrolü) yolunu izleyin. Ekran görüntüsüne bakın:

2. Eklenen Komut Düğmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle seçeneğini tıklayın, aşağıdaki ekran görüntüsüne bakın.

3. Açılan Microsoft Visual Basic for Applications penceresinde, lütfen Kod penceresindeki orijinal kodu aşağıdaki VBA betiğiyle 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

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

5. Tasarım Modunu kapatmak için Geliştirici > Tasarım Modu yolunu izleyin. Ekran görüntüsüne bakın:

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

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

İlgili makaleler:

• Excel'de hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Çalışma kitabı Excel'de kaydedildiğinde Outlook aracılığıyla e-posta nasıl gönderilir?
• Excel'de belirli bir hücre değiştirilirse e-posta nasıl gönderilir?
• Excel'de son kullanma tarihi gelmişse e-posta nasıl gönderilir?
• Excel'de çalışma kitabı güncellenirse e-posta hatırlatması veya bildirimi nasıl gönderilir?