Soru USERFORM TEXTBOX TEMİZLEME

[Mustafa_SEL]

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

 

[ÖmerBey]

Merhaba,
Userform ve textbox isimlerini dosyanıza göre düzenleyerek kullandığınız kodların sonuna ekleyiniz...
UserForm1.TextBox1.Text = ""

 

[Mustafa_SEL]

Merhaba,
Userform ve textbox isimlerini dosyanıza göre düzenleyerek kullandığınız kodların sonuna ekleyiniz...
UserForm1.TextBox1.Text = ""

'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

 

[ÖmerBey]

Bir satır üste ekleyiniz...

    MsgBox ("Email Başarıyla Gönderildi...")
    UserForm1.TextBox1.Text = ""
    Exit Sub

Tabi userform ve textbox ismi dosyanıza uygun mu bilmiyoruz...

 

[Mustafa_SEL]

Bir satır üste ekleyiniz...

    MsgBox ("Email Başarıyla Gönderildi...")
    UserForm1.TextBox1.Text = ""
    Exit Sub

Tabi userform ve textbox ismi dosyanıza uygun mu bilmiyoruz...

userform ismi = KONTROL
textbox ismi = destekmaili

 

[Mustafa_SEL]

Bir satır üste ekleyiniz...

    MsgBox ("Email Başarıyla Gönderildi...")
    UserForm1.TextBox1.Text = ""
    Exit Sub

Tabi userform ve textbox ismi dosyanıza uygun mu bilmiyoruz...

'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

 

[ÖmerBey]

Bu şekilde mi acaba

Bir üst satır demiştim.

 

[Mustafa_SEL]

Bir üst satır demiştim.

Çok teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar, iyi akşamlar...