Merhabalar , İyi akşamlar

Ekte sayın Oderyazbim in yaptıgı bir çalışma var , şuan benim istediğime çok yakın çalışıyor. http://www.access-sql.com/Konu-Mail-gonderimi--6748

Bu çalışmada kullanıcı form üzerinde ki bilgileri kendi doldurup mail gönderebiliyor,

benim yapmak istediğimse şu ; öncelikle bu çalışmada oldugu gibi metin kutularının oldugu bir form olmayacak , ana formda bir buton olacak ve bu butona basıldığında önceden kod içerisnde belirlenen " to " " cc " " konu " bölümler

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

[size=large]Arkadaşlar meraba....

3 - 5 sorun var, konu hakkında fikri olanların çok zamanını alacağını düşünmüyorum açıkçası, yardımcı olursanız sevinirim mübarek gün.

Ancak "kod kullanmadan" çözüm üretilebilirse çok makbule geçecek. Veritabanı boyutu yada çalışma hantallığı önemli değil önemli olan "mümkünse" kodsuz çözüm.

Yardımcı olmaya çalışan arkadaşlara şimdiden teşekkür ederim...

RESİM1:
[IMG]http://i59.tinypic.com/3509zqe.png

[font=Arial][size=medium][color=#000000]MERHABA EKDE GÖNDERDİĞİM DOSYANIN RAPOR SAYFASINDA BİR KAÇ SORUNUM VAR.İŞİN EHLİ ARKADAŞLARIN DURUMA EL ATIP KONU HAKKINDA BANA BİLGİ VERMELERİNİ RİCA ETSEM.NASIL YAPILDIĞINI BİLEYİM Kİ BENDE BAŞKALARINA YARDIMCI OLAYIM.

KONU ŞU ;
1- BİRİNCİL ANAHTAR SIRA KARIŞIK 6 NUMARA ASLINDA 1 NUMARA OLMASI GEREKLİ BEN BİR KAÇ DENE YAPTIĞIM İÇİN BİRİNCİL ANAHTAR 6 DAN BAŞLADI.
2-BİRİNCİL ANAHTARLA (SIRA nO) MUAYENE RAPOR NO AYNI OLMASI GEREKLİ.
3-RAPORLARIN BİRİ

INSERT INTO Comments (Bug, User, CTimestamp, Comment, History) VALUES([ID], [TempVars]![CurrentUserID],Now(),"Status changed to " & [Status], 1)


Yukarıdaki kod Kullanıcının durumu (3) resolved olarak değiştirdiğinde aşağıdaki notu düşmektedir

status changed to (3) Resolved by anonymous at 28.01.2019 22:25:50

ben yukarıdaki kodu düzenleyerek anonymous (yani Kullanıcı) durumu (3) resolved olarak değiştirdi at 28.01.2019 22:25:50 şeklinde nasıl düzenleyebilirim
teşekkürler