Macro ile mail gönderirken mail başlığını hücreden çekmek mümkün müdür?

[brkbkl]

Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
   
    .to = "aa@bb"
    .Cc = "cc@dd"
    .Subject = "MAİL BAŞLIĞI"
    .Body = "Merhaba, Ekteki malzemeler siparişimdir."
    .Attachments.Add ActiveWorkbook.FullName
    ActiveWorkbook.Save
    .Send
    Range("C9:M18,D5:D7").Select
    Selection.ClearContents
    ActiveWorkbook.Save
   
    MsgBox "Malzeme Talebi Gönderilmiştir."
   
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub

Bu makro ile "MAİL BAŞLIĞI" yazan yere G5 hücresindeki talep numarasını eklemek istiyorum.

Örnek mail başlığı şöyle olacak "123 NUMARALI MALZEME TALEBİ" makro içerisine bu şekilde hücrenin içindeki veriyi nasıl çekebilirim?

 

[YUSUF44]

.Subject = "MAİL BAŞLIĞI"

yerine

.Subject = [G5].Value

ya da

.Subject = [G5].Value & " NUMARALI MALZEME TALEBİ"

olarak kullanmayı denediniz mi?

 

[brkbkl]

.Subject = "MAİL BAŞLIĞI"

yerine

.Subject = [G5].Value

ya da

.Subject = [G5].Value & " NUMARALI MALZEME TALEBİ"

olarak kullanmayı denediniz mi?

Çok teşekkür ederim hocam, çalışıyor şu an.