Fuatckmk
Altın Üye
- Katılım
- 21 Aralık 2017
- Mesajlar
- 65
- Excel Vers. ve Dili
- Excel 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 06-06-2025
Arkadaşlar merhaba,
Aşağıdaki kullandığım koddaki, kırmızı ile işaretlediğim alan exceldeki bir hücreden yazıyı alıp maile yapıştırıp gönderiyor. Fakat exceldeki formatta göndermiyor. Exceldeki hücre içerisinde aşağıdaki gibi mesela 3 satır alt alta gelcek şekilde. Ama mailde hepsi yan yana geliyor.
Merhaba;
XLS ile ilgili bilgiler eklidir.
Onay süreci için yardımınız rica ederiz.
Aşağıdaki kullandığım koddaki, kırmızı ile işaretlediğim alan exceldeki bir hücreden yazıyı alıp maile yapıştırıp gönderiyor. Fakat exceldeki formatta göndermiyor. Exceldeki hücre içerisinde aşağıdaki gibi mesela 3 satır alt alta gelcek şekilde. Ama mailde hepsi yan yana geliyor.
Merhaba;
XLS ile ilgili bilgiler eklidir.
Onay süreci için yardımınız rica ederiz.
Kod:
Sub mail_gonder()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
Dim Signature, MS As Object
If Dir("C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm") = "" Then
MsgBox "C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm" & " dosyası bulunamadı..."
Exit Sub
End If
Set MS = CreateObject("Scripting.FilesystemObject")
Set Signature = MS.OpenTextFile("C:\Users\çakmakf\AppData\Roaming\Microsoft\Signatures\Uzun.htm", 1)
.Subject = Cells(4, "B").Value
.To = Cells(2, "B").Value
.CC = Cells(3, "B").Value
.HTMLBody = "<font color=blue><br><br>" & [COLOR="Red"][B]Cells(5, "B").Value[/B][/COLOR] & "</font><br><br><br>" & _
"<a href='\\10.230.235.110\Ford Ortak\FINANS\00_GOLCUK FINANS\GIDER_FATURALANDIRMA\Ocak2018.xls'>Lütfen Burayı Tıklayın </a>"
.HTMLBody = .HTMLBody & "<br><br><br>" & Signature.ReadAll
.send
End With
Set wrdEdit = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
End Sub