Excel'den Mail Atan Makronun Ã?zelleştirilmesi
Selam bu forumun katkılarıyla hazırladığım bir excel belgemin bugün tarihli bir kopyasını her gün sonunda ilgili kişilere mail atan aşağıdaki makroma
belgemin aslındaki değil kopyasındaki tanımlamaları silecek aşağıdaki makroyu
ve Mail_Workbook_2 makrosunu sildirecek bir kod eklemek istiyorum.
Ama dediğim gibi asıl belgemin kopyasındaki tanımlamalar ve makroyu silip ilgili e-mail adreslerine mail atmasını istiyorum bunları yukarıdaki makroma ekleyebilirsem tam istediğim gibi kullanışlı bir şey haline gelecek. Yardımlarınız için şimdiden teşekkürler...
Selam bu forumun katkılarıyla hazırladığım bir excel belgemin bugün tarihli bir kopyasını her gün sonunda ilgili kişilere mail atan aşağıdaki makroma
Kod:
Sub Mail_Workbook_2()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wbname As String
Addr = Array("i@com.tr", "m@com.tr", "a@com.tr", "p@gmail.com")
Application.ScreenUpdating = False
Sheets(1).Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Password = ""
Set wb1 = ActiveWorkbook
wbname = "C:/" & _
Format(Now, "dd.mm.yyyy") & ".xls"
wb1.SaveCopyAs wbname
Set wb2 = Workbooks.Open(wbname)
With wb2
.SendMail Addr, Format(Now, "dd.mm.yyyy") & " Tarihli Rapor"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Sheets("GENEL").Range("A1").Value = "=today()"
ActiveWorkbook.Password = "a"
End Sub
Kod:
For i = ActiveWorkbook.Names.Count To 1 Step -1
ActiveWorkbook.Names(i).Delete
Next
Ama dediğim gibi asıl belgemin kopyasındaki tanımlamalar ve makroyu silip ilgili e-mail adreslerine mail atmasını istiyorum bunları yukarıdaki makroma ekleyebilirsem tam istediğim gibi kullanışlı bir şey haline gelecek. Yardımlarınız için şimdiden teşekkürler...