클립 보드에서 배열 및 Visual Basic의 배열에서 Outlook 제목 줄로 복사

Question

클립 보드에서 데이터를 복사 한 다음이를 배열에 저장하고 배열에서 가져온 내용을 Outlook 제목 줄에 복사하려고합니다. 나는 아웃룩 제목 줄에 ARRAY로 데이터를 복사하는 데 어려움을 겪고있다. 여기 내 코드가있다.

DoCmd.Minimize 
    DoCmd.OpenReport " INFORMATION", acViewReport, "", "", acNormal 
    DoCmd.RunCommand acCmdSelectAllRecords 
    DoCmd.RunCommand acCmdCopy 


Btn_BundleInformation_Click_look: 

    Dim LString As String 
    Dim LArray() As String 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim olInsp As Object 
    Dim wdDoc As Object 
    Dim oRng As Object 
    Dim olapp As Object 
    Dim strsubject As String 
    Dim strArray(1 To 5) As String 

    Dim B As Integer 

    Dim Sn As String 
    Dim Rq As String 
    Dim J As String 
    Dim PP As String 

    J = JOB# 
    B = BUNDLE# 
    Sn = SEGMENTNAME 
    Rq = RECORDQTY 
    PP = PlatformProject 

    'Dim arrA As Variant 

Dim strString 

    'arrA = Array("BUNDLE#", "SEGMENTNAME", "RECORDQTY", "PlatformProject") 

    Dim varArray() As String 
varArray() = Split("BUNDLE#;CREATION DATE;BUNDLE TYPE;Spring;JOB #;PKG(s);SEGMENT NAME:COMPARED TO BUNDLE;PCR VERSION;MAPPING VERSION;OSE # & Version;RECORD QTY;Platform Project;", ";") 
    On Error Resume Next 


    Set OutApp = GetObject(, "Outlook.Application") 

    'rst.Close 


    On Error GoTo 0 

If Not olapp Is Nothing Then 
    'Outlook is open! 
    'MsgBox "Outlook is running" 

Else 
    'Outlook not open 
    'MsgBox "Outlook is not running" 

    Shell ("OUTLOOK") 

End If 
'end check outlook 
    'open new mail 
    Set OutApp = CreateObject("Outlook.Application") 


    Dim DataObj As MsForms.DataObject 
    Set DataObj = MsForms.DataObject 


    On Error Resume Next 

    'Get data from the clipboard. 
    DataObj.GetFromClipboard 

    'Get clipboard contents 
    LString = DataObj.GetText 
    LArray = Split(LString) 


    On Error Resume Next 
    With OutMail 
     .BodyFormat = 3 
     .TO = "" 
     .CC = "" 
     .BCC = "" 

     .subject = 
     Set olInsp = .GetInspector 
     Set wdDoc = olInsp.WordEditor 
     Set oRng = wdDoc.Range 
     oRng.collapse 1 
     oRng.Paste 
     .display 


    End With 
    On Error GoTo 0 

'Deassign all objects. 
    OutApp.Session.Logoff 
    Set OutMail = Nothing 
    Set OutApp = Nothing 
    Set olInsp = Nothing 
    Set wdDoc = Nothing 
    Set oRng = Nothing 
    'Set rst = Nothing 
    'Set db = Nothing 


End Sub 

Answer 1

변경이

Dim varArray As Variant 
varArray() = Split("BUNDLE#;CREATION DATE;BUNDLE TYPE;Spring;JOB #;PKG(s);SEGMENT NAME:COMPARED TO BUNDLE;PCR VERSION;MAPPING VERSION;OSE # & Version;RECORD QTY;Platform Project;", ";") 

이

Dim varArray() As String 
varArray() = Split("BUNDLE#;CREATION DATE;BUNDLE TYPE;Spring;JOB #;PKG(s);SEGMENT NAME:COMPARED TO BUNDLE;PCR VERSION;MAPPING VERSION;OSE # & Version;RECORD QTY;Platform Project;", ";") 

그런 다음 당신이 그것을 원한다면

그래서 제로 배열의 항목을 연결하여 제목을 만들 모양 : 번들 # - 번들 유형 - 작업 #

,

당신은 당신이 CONCATENATE 연산자 ("&")에 필요한 요소를 병합하여 제목을 설정하고 포함하는 것 배열의 내용은 무엇

.subject = varArray(0) & " - " & varArray(2) & " - " & varArray(4)