Metin gövdesi içeren makro içine toplama formülü ekleme

[bdrymrl]

Merhaba
Farklı makrolar için bir dosyam var.Bu dosyayı makro ile mail olarak gönderiyorum mail makrosunun içinde bir gövde yazısı kullanıyorum bu gövde yazısının içerisine sayı olarak yer alan bir hücre değerini yazmak istiyorum yine sayı olarak.

örn;altta ki makrodan bir kesit var bu makronun ***** ile belirtilen kısmına başka bir excel dosyasından gelecek hücre değerini yazmak istiyorum
sonuç:"FABRİKAMIZA ALINAN 60.000 KG , 700.000 TL ÜRÜN DEĞERLERİNİ İÇERİR.DETAYLAR EKLİ DOSYADADIR."


Set OutMail = OutApp.CreateItem(0)
strbody = "BU MAIL " & vbNewLine & vbNewLine & _
"FABRİKAMIZA ALINAN ****** DEĞERLERİNİ İÇERİR.DETAYLAR EKLİ DOSYADADIR." & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
""

 

[antonio]

Belirtilen değerlere ait değişkenleri oluşturup kod içinde kullanarak yapabilirsiniz.
Örnek:

Set OutMail = OutApp.CreateItem(0)
strbody = "BU MAIL " & vbNewLine & vbNewLine & _
"FABRİKAMIZA ALINAN [B][COLOR="Red"]" & urun_agirlik & ", " & urun_tutar & " [/COLOR][/B]DEĞERLERİNİ İÇERİR.DETAYLAR EKLİ DOSYADADIR." & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
""