Makro ile Mail gönderme

[Ozcan27]

Arkadaşlar,

Öncelikle mail kodunu birkez daha sizlerle paylaşmak isterim. Ancak iki sorum olacak.

ilk olarak mailde Form kısmına yazı yazdıramıyorum. (.From olarak yazdım ama olmuyor.)
ikinciside N6 hücresindeki yazının Bold yani kalın olması için ne yapmalıyım.

Şimdiden teşekkürler.
------------------------------
On Error Resume Next
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Application.DisplayAlerts = False

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = [B6]
.CC = ""
.BCC = ""
.Subject = [B1] & " " & [B5]
.Body = [N4] & Chr(13) & Chr(13) & [N6]
.Display
'.Send
End With
Application.DisplayAlerts = True
------------------------------

 

[Ozcan27]

Yardım edebilirmisiniz.?

konu hakkında yardımcı olabilecek arkadaşlar.. Bekliyorum...

 

[Recep İpek]

Mesaj gönderen siz olduğunuz için .From'daki ismi, değiştirmenin mümkün olmadığını düşünüyorum.

2.sorunuzla ilgili aşağıdaki linki inceleyebilirsiniz.

http://www.rondebruin.nl/mail/folder3/mail2.htm

Burada excel sayfasındaki verilerinizi olduğu gibi mesaj gövdesine yerleştiriyor.
Belki size fikir verebilir.