Makro ile gönder butonuna basınca gönderildi yazsının çıkması

[engineer1993]

Merhabalar,

Basit bir makro yazdım fakat geliştirmek için desteğe ihtiyacım var.

Gönder butonuna basınca ekranda gönderildi veya ona benzer bir komut koyabilir miyiz?

Sub Email_CurrentWorkBook()
'Gönderilecek e-mail bilgilerini değiştirmeyi unutmayın...
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Numune Talep Formu"
.Body = "Numune Parça eklenmiştir. Raporunu kontrol ediniz."
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub

 

[byfika]

Merhabalar,
Denermisiniz?

MsgBox "Mail Gönderildi...", vbInformation

satırını aşağıdaki satırların üzerine yazın ve deneyin.

End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub