• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru USERFORM TEXTBOX TEMİZLEME

Katılım
14 Mart 2018
Mesajlar
29
Excel Vers. ve Dili
2013-TR
Arkadaşlar Merhabalar

Userform üzerinde yer alan bir textbox mevcut içerisine veri girilip mail gönderiliyor
Mail atıldıktan sonra Textbox içeriğinin otomatik temizlenmesi konusunda yardımlarını bekliyorum teşekkürler
 
Merhaba,
Userform ve textbox isimlerini dosyanıza göre düzenleyerek kullandığınız kodların sonuna ekleyiniz...
UserForm1.TextBox1.Text = ""
 
Merhaba,
Userform ve textbox isimlerini dosyanıza göre düzenleyerek kullandığınız kodların sonuna ekleyiniz...
UserForm1.TextBox1.Text = ""

Kod:
'MS BİLGİLENDİRME MAİLİ YOLLAMA
Private Sub CommandButton1_Click()
' nesnelerin tanımlanması
' bu nesnelerin kullanılması için Referansların Microsoft Outlook ya da Office eklenmesi

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
 
With OutMail
        .To = "deneme@deneeme.com"
        .CC = ""
        .BCC = ""
        .Subject = "Teknik Destek Talebi"
        .Body = Me.destekmaili.Value
        .Send
End With

On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

'Now set the application properties back to true
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    MsgBox ("Email Başarıyla Gönderildi...")
    Exit Sub
    UserForm1.TextBox1.Text = ""
err:
        MsgBox err.Description
End Sub


Bu şekilde mi olacak acaba
 
Bir satır üste ekleyiniz...
Kod:
    MsgBox ("Email Başarıyla Gönderildi...")
    UserForm1.TextBox1.Text = ""
    Exit Sub
Tabi userform ve textbox ismi dosyanıza uygun mu bilmiyoruz...
 
Bir satır üste ekleyiniz...
Kod:
    MsgBox ("Email Başarıyla Gönderildi...")
    UserForm1.TextBox1.Text = ""
    Exit Sub
Tabi userform ve textbox ismi dosyanıza uygun mu bilmiyoruz...
Kod:
'MS BİLGİLENDİRME MAİLİ YOLLAMA
Private Sub CommandButton1_Click()
' nesnelerin tanımlanması
' bu nesnelerin kullanılması için Referansların Microsoft Outlook ya da Office eklenmesi

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
 
With OutMail
        .To = "mustafasel@msn.com"
        .CC = "selmustafa@gmail.com"
        .BCC = ""
        .Subject = "Teknik Destek Talebi"
        .Body = Me.destekmaili.Value
        .Send
End With

On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

'Now set the application properties back to true
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    MsgBox ("Email Başarıyla Gönderildi...")
    Exit Sub
    KONTROL.destekmaili.Text = ""
err:
        MsgBox err.Description
End Sub

Bu şekilde mi acaba
 
Rica ederim,
İyi çalışmalar, iyi akşamlar...
 
Geri
Üst