aşağıdaki kodla sayfanın bir örneğini 4 mail adresine mail attırıyorum. Daha öncelelir düzgün çalışıyordu ama artık çalıştırdığımda her maile 2'şer adet atıyor sebebi ne olabilir.
Kod:
Sub Mail_Workbook_2()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wbname As String
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 "a@a.com.tr", Format(Now, "dd.mm.yyyy")
.SendMail "b@b.com.tr", Format(Now, "dd.mm.yyyy")
.SendMail "c@c.com.tr", Format(Now, "dd.mm.yyyy")
.SendMail "d@d..com.tr", Format(Now, "dd.mm.yyyy")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Sheets("GENEL").Range("A1").Value = "=today()"
ActiveWorkbook.Password = "a"
End Sub