Merhabalar;
Programımdaki makro çalıştığında .htmlbody kısmındaki "Bilgilerine..." yazısının yazıkarakteri türü outlook sayfasına otomatik olarak times new roman olarak geliyor. Ben bunun calibri olarak gelmesini istiyorum. Ama başaramadım. Yardımlarınızı rica ederim.
Teşekkürler.



[code=vba]Sub DS_SAYILARI()
Dim yenimail As Outlook.MailItem
Set yenimail = CreateItem(olMailItem)
Set FSO = CreateObject("Scripting.FilesystemObject")
Set mysignature = FSO.OpenTextFile("C:\Documents and

[code=vba]
Function MailGonder(ByVal Konu As String, ByVal kimden As String, ByVal kime As String, ByVal mail As String, _
Optional ByVal bilgi As String, Optional ByVal gizli As String, Optional ByVal Ek As String)

On Error GoTo hata
Dim objCDOMail As Object
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Konu
objMessage.FROM = kimden
If kime <> "" Then objMessage.To =

ekte çalışmamda müşterinin ekstresini outlook a göndererek maili gönderiyorum. ancak muavin formunda sizinde incelediğinizde anlayacaksınız maili göndermekten vazgeçtiğimde outlook un sayfasını kapattığımda formum donuyor hiçbişey yaptırmıyor kapatmak istediğimde de (Ado ve DDe çalışan bir modülünüz var felan...)
gibi bir hata veriyor kapanmıyor CTRL+Alt+Del ile kapatıyorum formu bu konuda yardımınızı bekliyorum....

Günaydın,

Dosyaları FTP'ye göndermede bir hata iletisi alıyorum.

Oluşan hataya ilişkin ekran görüntüsünü bu mesaja ekledim.

Berkant Hocam ya da Taruz Hocam bu konu hakkında sorunun neden olduğunu söyleyebilirler mi acaba?

Toplam gönderdiğim dosya sayısı 45. Gönderdiğim dosyalardan en küçüğünün boyutu 2KB, en büyüğünün boyutu ise 1.018 KB.

Bazen 2 dosya gönderiyorum sonraki dosyada bu hatayı veriyor, kalanlar problemsiz aktarılıyor.
Bazen sonlara doğru hata veriyor. Ama her gönder