Guten morgen VBA Profis, ich versuche mich schon die ganze zeit an einem Code bekomme es aber nicht hin :(
Würde mich sehr freuen wenn ihr mir helfen könntet.
habe folgenden Code mit diesem kann ich aus dem Outlook addressbuch empfänger auswählen.
ich bekomme es aber nicht hin einen anhang anzufügen :(
Obwohl ich im Code folgende Zeile habe..
.Attachments = "c:\test.txt"
Warum funtioniert das nicht ?
Vielleicht mache ich noch etwas falsch oder verstehe etwas falsch würdem ich deshalb über einen kleine erklärung zu meinem problem freuen.
Vielen dank und schönen tag noch !
gruß Chris
Sub ShowAdrBook_erweitert()
Dim objSession As MAPI.Session
Dim objRecipients As MAPI.Recipients
Dim objRecipient As MAPI.Recipient
Dim objMessage As MAPI.Message
Set objSession = New MAPI.Session
objSession.Logon
Set objRecipients = objSession.AddressBook(Recipients:=objRecipients, Title:="Wählen Sie den _
Empfänger", ForceResolution:=True, RecipLists:=3, ToLabel:="An", CcLabel:="Kopie", BccLabel:="Bcc")
If Not objRecipients Is Nothing Then
Set objMessage = objSession.Outbox.Messages.Add
With objMessage
On Error Resume Next
For Each objRecipient In objRecipients
.Recipients.Add Name:=objRecipient.Name, Address:=objRecipient.Address, Type:= _
objRecipient.Type
Next
.Subject = "test stattuuus"
.Text = "hallo text das ist der text mit " & Chr(10) & " zeilenumbruuch"
.Attachments = "c:\test.txt"
.Recipients.Resolve
.Update
.Send ShowDialog:=True
End With
objSession.Logoff
End If
End Sub