Problem med CONST & FELTNAVN i path
Hej I skape hjerner !Jeg har et problem med nedenståede kode, hvor jeg forsøger at indsætte et billede som signatur ...
Det er en database, der benyttes af flere brugere, så jeg tænkte at istedet for den sædvanlige textsignatur kunne der benyttes et billede.
så brugernes signatur eksempelvis hedder %logonname% & ".jpg" ( databasen benyttes på Windows domæne, så intet problem med at hente brugernes logon-navne. )
problemet er omkring linen med : ' Const MyPiX = "C:\#_Export\PIX\" & Me.imagename & "\"
her vil jeg gerne have værdien fra formularen jeg står på med data fra tekstboken med navnet 'imagename"
Håber det giver mening !
mvh martens
---------------------------------------------------------------------------------
Kode :
Private Sub cmb_send_with_attachments_CLEAN_CODE_Click()
FileCopy "C:\#_Export\XML_1\tbl cars_locations_etc.xml", "C:\#_Export\XML_4\tbl cars_locations_etc.xml"
FileCopy "C:\#_Export\XML_2\tbl_Cars_Pools_POC_info.XML", "C:\#_Export\XML_4\tbl_Cars_Pools_POC_info.XML"
FileCopy "C:\#_Export\XML_3\current_bookings.txt", "C:\#_Export\XML_4\current_bookings.txt"
FileCopy "C:\#_Import\#_Fixed_Files_4_Access\carpools.xlsx", "C:\#_Export\XML_4\carpools.xlsx"
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim strPath As String
Dim strFilter As String
Dim strFile As String
Dim imagename As String
''
'Hvorfor kan jeg IKKE dette ?
' Const MyPiX = "C:\#_Export\PIX\" & Me.imagename & "\"
Const MyPiX = "C:\#_Export\PIX\database.jpg"
''
strPath = "C:\#_Export\XML_4\"
strFilter = "*.*"
strFile = Dir(strPath & strFilter)
If strFile <> "" Then
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.Attachments.Add MyPiX
'.Attachments.Add MyPiX2
.BodyFormat = olFormatRichText
.To = "modtager@domain.dk"
.CC = "modtager@gmail.com"
.BCC = "modtager@mail.dk"
.Subject = "data fra den store mester ;o) " & Date & " " & Time
' her henter jeg værdien 'me.imagename' fra formularen - virker fint !
.HTMLBody = "<br><B>MDS - martens data service </B><br>" & "<img src='cid:" & Me.imagename & "'" & "width='200' height='200'><br>" & Me.Text4
Do While Len(strFile) > 0
.Attachments.Add (strPath & strFile)
strFile = Dir
Loop
'.Send 'Sender mail UDEN visning INDEN afsendelse
.Display 'Viser mail INDEN afsendelse
End With
Else
MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
"Processing terminated."
Exit Sub
End If
End Sub