merhabalar , iyi haftalar ,


formumda belirli alanlar var , aşağıki kodun subject kısmınaiki farklı alandan aldıgı bilgiyi yazdırmak istiyorum.

kod şu şekilde ;

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = "test"
.CC = "test"
.Subject = Me.TERMİNAL_ID
.HTMLBody = " deneme"

'.DeleteAfterSubmit = True 'This would let Outlook send th note without storing it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
Resume Error_out
Error_out:


--- terminal ıd alanını yukardaki gibi yazdırıyorum ama birde açılır kutum var orda yazan bilgiyide eklemek istiyorum.

yani subject bölümünde şu yazmalı ; C4554 nolu terminal için EKRAN arızası vardır.

burada C4554 = terminal ıd
EKRAN = ARIZA TÜRÜ isimli bir alan ve formda bu açılır kutu şeklindedir.

bunu kodda nasıl yapabilirim ,



saygılar

Sadece arıza türünü yazacaksanız ve bunuda formdaki açılan kutudan alacaksa, zannedersem açılan kutunun satır kaynağıda 2 sütından oluşuyor TerminalID ve Arıza Türü, Bu durumda Subject Alanına;
Subject=ArızaTürünüGösterenAçılanKutuAdı.Column(1) yazmanız yeterli

merhaba sayın Onur_can,

cevap için teşekkür ederim,

subject kısmı ; iki faklı alandan bilgi alması gerekiyor, 1.cisi Terminal Id alanı diğeri ise arza türü alanı..

bu durumda subject kısmına ;

"me.Terminal ıd" "ArızaTürünüGösterenAçılanKutuAdı.Column(1)"

bunları nasıl birleştirmem gerekir ?

saygılar

Aralarına & operatörü koyarak.

bu şekilde

sayın Mirza ve sayın Onur_can

son bir şey sormak istiyorum ,

If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If

bu kodda ki ataç kısmına acesteki bir raporu eklemek isityorum.. nasıl bir değişikliğe gitmem gerekir ?

yardımlarınız için çok teşekkür ederim.

saygılar