Merhaba değerli arkadaşlar;
Sorum şu, Aşağıda buton ile mail gönderme kodları yer almaktadır. Body = "xxxxxxxxx" Bu alana istediğimi yazabiliyorum. Dosya ektedir, iyi çalışmalar gibi. Fakat İyi çalışmaların alt satırda görünmesini istiyorum. Bir de ara satıra uyarı manasında "önemli" Kalın fort ile yazmak istiyorum. bunun için nasıl bir değişiklik yapamam gerekiyor.
_____________________
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "@.com"
.CC = ""
.BCC = ""
.Subject = "dosya"
.Body = "xxxxxxxxx"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
__________________________
Sorum şu, Aşağıda buton ile mail gönderme kodları yer almaktadır. Body = "xxxxxxxxx" Bu alana istediğimi yazabiliyorum. Dosya ektedir, iyi çalışmalar gibi. Fakat İyi çalışmaların alt satırda görünmesini istiyorum. Bir de ara satıra uyarı manasında "önemli" Kalın fort ile yazmak istiyorum. bunun için nasıl bir değişiklik yapamam gerekiyor.
_____________________
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "@.com"
.CC = ""
.BCC = ""
.Subject = "dosya"
.Body = "xxxxxxxxx"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Display 'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
__________________________
