Excel Belgesini Postalama

[bezl]

Sub SendIt()
Application.Dialogs(xlDialogSendMail).Show _
arg1:="mustafaceylan@referansymm.com.tr", _
arg2:="25.07.2005"
End Sub

diye bir makrom var excelde oluşturduğum butona bunu atadım.
Benim istediğim arg2: yani konu bugünün tarihi otomatik yazsın istiyorum
bir de o butona tıkladığımda gönder tuşuna bile basmaya gerek kalmadan direkt gönderebilir miyim maili?

 

[veyselemre]

arg2:=Format(Date, "dd mmmm yyyy")

 

[bezl]

Teşekkürler,

Sub SendIt() 
Application.Dialogs(xlDialogSendMail).Show _ 
arg1:="mustafaceylan@referansymm.com.tr", _ 
arg2:=Format(Date, "dd mmmm yyyy")
End Sub

bu makronun başına bu belgenin adının bugünün tarihi (mesela 25.07.2005) olarak farklı kaydedilmesini istiyorum bunu nasıl ekleriz.

 

[bezl]

Aşağıdaki kodla belgemin bir kopyasını mail atıyorum, acaba iki mail adresine mail atabilirmiyim, virgül ve noktalı virgülle ayırdığımda 400 diye bir hata mesajı alıyorum.

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@hotmail.com", _
                  Format(Now, "dd.mm.yyyy")
        .ChangeFileAccess xlReadOnly
         Kill .FullName
        .Close False
    End With
    Application.ScreenUpdating = True
End Sub

 

[red_lion_72]

selam,

Sn. Bezl virgül ile yazdığınızda hata vermemesi lazım ama....sizin yazdığınız iki isimle bir gönderebilirmisiniz.Deneme yapabilmemiz açısından. Yazımda bir sorun olabilir.

Kolay gelsin.

 

[bezl]

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 "mustafaceylan@referansymm.com.tr,postahanem@gmail.com", _
                  Format(Now, "dd.mm.yyyy")
        .ChangeFileAccess xlReadOnly
         Kill .FullName
        .Close False
    End With
    Application.ScreenUpdating = True
    Sheets("GENEL").Range("A1").Value = "=today()"
    ActiveWorkbook.Password = "Eminem/b"
End Sub

yazınca 400 diye bir hata geliyor