|
Super!
Nun habe ich noch das Problem, daß ich gerne aus dem Word heraus eine Email an diese Leute senden möchte.
Wie kann ich denn die Outlook Objekte ansprechen..?
Habe Microsoft.Office.Interop.Outlook als Verweis hinzugefügt,
habe versucht mittels:
Public Sub sendPDFviaEmail()
Dim objOutlook As Object
objOutlook = CreateObject("Outlook.Application")
Dim objOutlookMsg As Object
objOutlookMsg = CreateObject("Outlook.MailItem")
Dim objOutlookRecip As Object
objOutlookRecip = CreateObject("Outlook.recipient")
Dim objOutlookAttach As Object
objOutlookAttach = CreateObject("Outlook.Attachment")
Dim WeekendingDate As Date
objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
objOutlookRecip = .Recipients.Add("blah@blah.de")
objOutlookRecip.Type = olTo
.Subject = "Blah "
.Body = "blah blah blah"
'Add attachments to the message [some code]
.Attachments.Add("C:\TEMP\1006482_NX12_05032018.lic.txt")
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
If DisplayMsg Then
.Display
Else
.Save
End If
End With
objOutlook = Nothing
End Sub
Daraus was zu machen, aber mein Visual Studio kennt die Outlook-Objectclass nicht...?
olMailItem wurde nicht definiert...
Schade..
Hat wer ne Idee?
|