Calistiginiz dosyayi Mail Atma

Calistigimiz dosyalari kaydeder ve kaydettigimiz dosyayi outlookla gondermek icin outlook`u acariz; ya outlook`u acmaniza gerek kalmadan direkt olarak gonderme imkaniniz olsaydi, dosyanizi kaydedip gonderen bir kod olsaydi..

Iste o kod:

 

Sub MailSheet()
On Error GoTo Terminator
Application.ScreenUpdating = False
Dim shtName As String
shtName = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(“Copy of ” & _
shtName, “Microsoft Excel File, *.xls”)
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSendMail).Show
With ActiveWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Terminator:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
—–
Sub MailBook()
Application.Dialogs(xlDialogSendMail).Show
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


3 + 3 =