Aktif dosyayı sıkıştırıp (Outlook) mail atma

[Korhan Ayhan]

Selamlar,

Arkadaşlar aktif excel dosyasını winrar ile sıkıştırıp outlooktan mail atan kodları uzun aramalarıma rağmen forumda bulamadım. Eğer elinde bununla ilgili örnek bir çalışma olan varsa yayınlarsa sevinirim.

 

[Kemal Demir]

Merhaba,

Aşagıdaki Linke istersenız bakınız.En azından belki şimdilik iş görür.

http://www.excel.web.tr/showthread.php?t=5195&highlight=winrar

 

[Recep İpek]

Aşağıda benim kullandığım kodlarda dosya uzantısını .zip veya .rar olarak değiştirdim.
Şu an için makro gayet güzel çalışıyor.Belki değişik fikirler verebilir.

Sub OutlookMesajGönder()
On Error Resume Next
Dim App As Outlook.Application
Dim Posta As Outlook.MailItem
Dim FSO As Object
Dim Tarih As Date
Dim MyFolder, MyFile As String

Application.DisplayAlerts = False
ActiveWorkbook.Save
MyFolder = "C:\Genel01"
Tarih = Date
'MyFile = Format(Now, "yyyy mm dd hh mm") + ".xls"
MyFile = "RAPOR.[b][color=red]zip[/color][/b]"

Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(MyFolder) Then
FSO.CreateFolder (MyFolder)
End If

ActiveWorkbook.SaveCopyAs Filename:=MyFolder & Application.PathSeparator & MyFile
Set FSO = Nothing
Set App = CreateObject("Outlook.Application")
Set Posta = App.CreateItem(olMailItem)
    With Posta
      .To = "xxx@yyy.com;zzz@bbb.com"
      '.CC = ""
      '.BCC =
      .Subject = Tarih & " Devamsızlık Listesi"
      .Body = "Merhaba" & Chr(13) & Chr(13) & Tarih & " tarihli Üretim Devamsızlık Listesi ektedir." & Chr(13) & Chr(13) & "Kolay Gelsin."
      .Attachments.Add "C:\Genel01\" & MyFile
      .Display
      '.Send
    End With
Application.DisplayAlerts = True
[color=green]'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.[/color]
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. ripek,

Verdiğiniz kodu zaten sıkıştırmadan dosya göndermede kullanıyordum. Yaptığınız eklentiyi hem zip hemde rar olarak denedim. Fakat dosyayı her halukarda ekliyor ama sıkıştırmıyor sadece uzantısını zip yada rar yapıyor. Dosyamı bu yöntemle sıkştırdığımda boyutu 7 MB iken kendim normal yolla sıkıştırdığımda 890 Kb olarak görünüyor. Bir gariplik var gibi görünüyor. Sanırım ben beceremedim.

 

[Recep İpek]

Sn.Cost Control

İşin bu yönünü düşünmemiştim.Dediğiniz doğru olabilir.

 

[Recep İpek]

Sanırım aşağıdaki linkte bununla ilgili bir konu var.

http://www.rondebruin.nl/zip.htm