Makro kodu ile Excel Sayfasını Mail Atma ‪

Makro kodu ile Excel Sayfasını Mail Atma
Sub EmailSheet()
Dim OutlookApp As Object, OutlookMsg As Object
Dim FSO As Object, BodyText As Object
Dim MyRange As Range, TempFile As String

On Error Resume Next
Set MyRange = ActiveSheet.Range(“A1”).CurrentRegion
If MyRange Is Nothing Then Exit Sub
Set FSO = CreateObject(“Scripting.FilesystemObject”)
TempFile = “C:\TempHTML.htm”
ActiveWorkbook.PublishObjects.Add _
(4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, “”, “”).Publish True
Set OutlookApp = CreateObject(“Outlook.Application”)
Set OutlookMsg = OutlookApp.CreateItem(0)
Set BodyText = FSO.OpenTextFile(TempFile, 1)

With OutlookMsg
.HTMLBody = BodyText.ReadAll
.Subject = Range(“A20”).Text
.To = InputBox(“mail atılacak adresi girin”)
.CC = InputBox(“cc ye eklenecek adresi girin”)
.Display
End With

Kill TempFile

Set BodyText = Nothing
Set OutlookMsg = Nothing
Set OutlookApp = Nothing
Set FSO = Nothing
End Sub

İlk yorum yapan olun

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*