Mail gönderimi hk.

[theabir]

merhabalar ekli dosyanın içerisinde mail gönder butonu yer almaktadır, bu butona tıklandığında maili göndermesini istiyorum, yardımlarınız talep ederim.

 

[Asri]

merhabalar ekli dosyanın içerisinde mail gönder butonu yer almaktadır, bu butona tıklandığında maili göndermesini istiyorum, yardımlarınız talep ederim.

Mail gönderme ile ilgili tam olarak yapmak istediğiniz işlem nedir?
Kişiye özel toplu mail mi, mutabakat mı? v.b.

Sayfayı mı? Excel dosyasını mı? Belirli bir alanı mı? mail göndermek istiyorsunuz?

 

[theabir]

Mail gönderme ile ilgili tam olarak yapmak istediğiniz işlem nedir?
Kişiye özel toplu mail mi, mutabakat mı? v.b.

Sayfayı mı? Excel dosyasını mı? Belirli bir alanı mı? mail göndermek istiyorsunuz?

Sayın asri, sayfadaki dolu hücreleri maile metin olarak ekleyecek kişi de tek kişi cc de birden fazla kişi konu sabit olacak. teşekkür ederim.

 

[Haluk]

Aşağıdaki kodu bir deneyin;

Sub Test()
    Dim OutlookApp As Object, OutlookMsg As Object
    Dim FSO As Object
    Dim BodyText As Object
    Dim MyRange As Range
    Dim TempFile As String
    Dim strHTMLBody As String
    Dim NoA As Long
    
    NoA = Cells(65536, 1).End(xlUp).Row

    TempFile = "D:\TempHTML.htm"
    
    Set FSO = CreateObject("Scripting.FilesystemObject")
    
            
            Set MyRange = ActiveSheet.Range("A1" & ":B" & NoA)
            
            If MyRange Is Nothing Then Exit Sub
            ActiveWorkbook.PublishObjects.Add _
            (4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
            
            Set BodyText = FSO.OpenTextFile(TempFile, 1)
            
            strHTMLBody = strHTMLBody & BodyText.ReadAll
            
       '     Kill TempFile1
    
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMsg = OutlookApp.CreateItem(0)

    With OutlookMsg
        .HTMLBody = strHTMLBody
        .Subject = "Bu e-postanın konusu falan filandır"
        .To = "alibaba@ciftlik.com.tr"
        .CC = "yedicuceler@masallardiyari.com; pamukprenses@masallardiyari.com"
        '.Send
        .display
    End With
    
            
    Set BodyText = Nothing
    Set OutlookMsg = Nothing
    Set OutlookApp = Nothing
    Set MyRange = Nothing
    Set FSO = Nothing
End Sub

 

[theabir]

Aşağıdaki kodu bir deneyin;

Sub Test()
    Dim OutlookApp As Object, OutlookMsg As Object
    Dim FSO As Object
    Dim BodyText As Object
    Dim MyRange As Range
    Dim TempFile As String
    Dim strHTMLBody As String
    Dim NoA As Long
    
    NoA = Cells(65536, 1).End(xlUp).Row

    TempFile = "D:\TempHTML.htm"
    
    Set FSO = CreateObject("Scripting.FilesystemObject")
    
            
            Set MyRange = ActiveSheet.Range("A1" & ":B" & NoA)
            
            If MyRange Is Nothing Then Exit Sub
            ActiveWorkbook.PublishObjects.Add _
            (4, TempFile, MyRange.Parent.Name, MyRange.Address, 0, "", "").Publish True
            
            Set BodyText = FSO.OpenTextFile(TempFile, 1)
            
            strHTMLBody = strHTMLBody & BodyText.ReadAll
            
       '     Kill TempFile1
    
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMsg = OutlookApp.CreateItem(0)

    With OutlookMsg
        .HTMLBody = strHTMLBody
        .Subject = "Bu e-postanın konusu falan filandır"
        .To = "alibaba@ciftlik.com.tr"
        .CC = "yedicuceler@masallardiyari.com; pamukprenses@masallardiyari.com"
        '.Send
        .display
    End With
    
            
    Set BodyText = Nothing
    Set OutlookMsg = Nothing
    Set OutlookApp = Nothing
    Set MyRange = Nothing
    Set FSO = Nothing
End Sub

Haluk bey hata verdi, ben yapamamış olabilirim.

 

[Haluk]

Verdiği hata nedir ? Ben buradan sizin bilgisayarı göremiyorum

Belki sizin hard disk'de "D" bölümü yoktur. Kodun bu kısmını düzenleyin ....

TempFile = "C:\TempHTML.htm"

 

[theabir]

Verdiği hata nedir ? Ben buradan sizin bilgisayarı göremiyorum

Belki sizin hard disk'de "D" bölümü yoktur. Kodun bu kısmını düzenleyin ....

TempFile = "C:\TempHTML.htm"

ilgili alanı düzenledim, fakat aynı hata devam ediyor. hata ekteki gibidir.