DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub xlTR_174358()
'VBE / Tool / References / Microsoft Outlook XX.X Object Library
Dim olMail As MailItem, olInspector As Inspector
Set olInspector = Outlook.ActiveInspector
Set olMail = olInspector.CurrentItem
olMail.Send
End Sub