Bildpfad auslesen
17.06.2014 14:14:33
Basti
ich bin Basti und habe womöglich ein ganz leicht zu lösendes Problem :)
Ich lasse User ein Bild in Excel einfügen. Nun möchte ich gerne den Pfad dieses Bildes entweder gleich mitlesen oder anschließend auslesen, da ich dieses Bild dann an eine generierte E-Mail weitergeben möchte. Wenn ich das Bild auch direkt aus Excel in den Text der Email übergeben kann dann gerne auch hierfür Vorschläge - habe nur leider nichts dazu gefunden :(
Code zum Einfügen vom Bild:
Function insertpicture() As String
On Error Resume Next
Dim ObjDLG As Dialog
ChDir "C:\"
Set ObjDLG = Application.Dialogs(xlDialogInsertPicture)
ObjDLG.Show
With Selection
.Top = 69
.Left = 423
.Width = 100
.Height = 100
.Name = "picture"
End With
End Function
Code zum Generieren und Öffnen der E-Mail:
Sub genmail()
Call Picture.checkpicture
If checkpicture = False Then
x = MsgBox("There is no picture of yourself." & vbCrLf & "Do you want to import one now?", _
_
_
_
vbYesNo, "Picture missing")
If x = 6 Then 'YES
Call Picture.importpic
End If
End If
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Recipients.Add "..."
.Subject = "Test"
.htmlbody = "HALLO WELT" & HIER SOLLTE DAS BILD KOMMEN
.ReadReceiptRequested = False
.Display
End With
Set olApp = Nothing
End Sub
Ich habe noch mehr Funktionen, die ich hier jetzt erstmal nicht mit reinposten möchte, da es sonst eher unübersichtlich wird. Diese kann ich aber nachliefern, falls benötigt :)
Hoffe ich konnte es verständlich beschreiben.
Vielen Dank und viele Grüße,
Basti