Excel Kaydet ve Gönder Butonu

[sfu420]

Merhaba,

Aşağıdaki kod ile commanbuttona tıkladığımda excel doyasını istediğim isimde, istediğim yere kayıt edip outlook ekranında ek doya olarak getirebiliyorum.

Oulook yeni mesaj kısmına to: kişisini de görüldüğü üzere getirebiliyorum fakat cc kısmını bir türlü beceremedim.

Yardımcı olmanızı rica ederim.

Private Sub CommandButton4_Click()
ThisWorkbook.SaveAs ("\\arsalts\Kayis\Genel\DEPO\Diger\Uretim_Emirleri\" & Sheets("Şablon").Range("N5").Value & "-" & Sheets("Şablon").Range("BO2").Value & ".xls")
Application.Dialogs(xlDialogSendMail).Show _
arg1:="xxx@xxx.com.tr"
End Sub

 

[sfu420]

bu sizin icin cok basit biliyorum ustadlar. ama benim icin cok can skıcı. 2 gundur kafayi takmis durumdayim o kadar arastrdim. deneme yaptim olmadi.

 

[sfu420]

Cevap vermeyen arkadaşlara da teşekkürler. Bu sayede hazıra konmayıp mantığı biraz daha anlamış oldum.

Şu anda tek problem farklı kaydet ekranı geldiğinde "No" ya da "Cancel" seçtiğimde "Run-time Error '1004' " hatası vermesi. Bunu da halledeceğim İnşaallah. Ama destek olmak isteyen varsa hayır demem.


Sağdan soldan parçalarla oluşturduğum kod aşağıdaki gibi;

Sub KaydetGonder_Click()
ThisWorkbook.SaveAs ("\\Kayis\\Uretim_Emirleri\" & Sheets("Şablon").Range("N5").Value & "-" & Sheets("Şablon").Range("BO2").Value & ".xls")
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Dim MyFile As String
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "xxx@xxx.com"
.CC = "xxx@xxx.com"
.Subject = [BO5]
.Body = "Bu e-mail test amacıyla gönderilmiştir. Lütfen dikkate almayınız. "
.Attachments.Add MyFile
.Save
.Display

End With
Set NewMail = Nothing
Set OutApp = Nothing

End Sub