aktif hücreleri mail gönderme makrosu.

[zulfuernek]

Sub Email_CurrentWorkBook()

'Aşağıdaki E-mail bilgilerini değiştirmeyi unutmayın
Dim Makro As Object
Dim Mail As Object

Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)

On Error Resume Next
With Mail
.To = "zulfu.ernek@isbank.com.tr"
.CC = "zulfu.ernek@isbank.com.tr"
.BCC = "zulfu.ernek@isbank.com.tr"
.Subject = "Test Sürüşü"
.Body = Sheets("Sayfa1").Range("A1:F")
.Attachments.Add ActiveWorkbook.Sheet("Sayfa1").Range("A1:F").FullName
.Send
End With
On Error GoTo 0

Set Mail = Nothing
Set Makro = Nothing
End Sub

yukarıdaki kodu yazdığımda mail geliyor ancak ek olarak veya içerik olarak bir şey görünmüyor. kalın yazı ile yazdığım yeri nasıl yapmam gerekli.

 

[Haluk]

Merhaba;

İlk önce bilgisayarda C:\TestFolder isimli bir klasör oluşturun. Daha sonra, aşağıdaki kodları denersiniz.

Selamlar,

Sub E_Posta_Gonder()
    Dim OutlookApp As Object, OutlookMsg As Object
    Dim FSO As Object
    Dim BodyText As Object
    Dim MyRange As Range
    Dim TempFile As String
    
    TempFile = "C:\TestFolder\TempHTML.htm"

    Set FSO = CreateObject("Scripting.FilesystemObject")
    
    On Error Resume Next
    
    Set MyRange = ActiveSheet.Range("A1:F10")
    If MyRange Is Nothing Then Exit Sub
    ActiveWorkbook.PublishObjects.Add _
    (4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMsg = OutlookApp.CreateItem(0)
    Set BodyText = FSO.OpenTextFile(TempFile, 1)
    
    With OutlookMsg
        .HTMLBody = BodyText.ReadAll
        .Subject = "Test Sürüşü"
        .To = "zulfu.ernek@isbank.com.tr"
        .CC = "zulfu.ernek@isbank.com.tr"
        '.Display
    End With
        
    Kill TempFile
    
    Set BodyText = Nothing
    Set OutlookMsg = Nothing
    Set OutlookApp = Nothing
    Set MyRange = Nothing
    Set FSO = Nothing
End Sub

 

[zulfuernek]

haluk bey bilgisayar genel merkez koordineli olduğu için c sistem dosyalarına giriş yapamıyoruz. engellenmiş durumda bu yüzden bu işlemi dediğiniz şekilde gerçekleştiremiyorum

 

[Haluk]

O zaman, kendinize ait bir yerde oluşturun klasörü.

My Documents - Belgelerim .... gibi bir yer olabilir.

 

[Haluk]

Zülfü Bey, sorunu çözebildiniz mi?

 

[zulfuernek]

haluk hocam sorunu çözemedim. daha önce bir defa yapmıştım deneme amaçlı ve sadece listbox bilgilerini mail göndermişti. ancak şimdi o kodu bulamıyorum. yani dosya açmadan herhangi bibyere kaydetmeden sadece listboxu mail göndermeli. comboboxta seçtiğim kişilere

 

[Haluk]

Orjinal sorunuzun çözümü yukarıda verdiğim kodla halledilmiş olması gerekir.

Başka sorunlarınız varsa, bilemiyorum.

Selamlar,