sendUsingAccount funktioniert nicht
08.10.2019 11:07:15
Nico
ich habe einen Code, der eine Mail öffnet, einen Anhang hinzufügt, den Betreff und den Text vorgibt.
Da bei uns intern eien Sammel-Email-Adresse eingeführt wurde, muss diese Mail nun von diesem Konto versendet werden.
Als erstes habe ich mit SentonBehalfofName Funktion verwendet. Allerdings ist mir hier aufgefallen, dass die Mail in meinem privaten Gesendet-Ordner gespeichert wird, und nicht in dem Gesendet-Ordner des neuen Accounts. Daher habe ich noch etwas weiter recherchiert und die Funktion "Set .SendUsingAccount = .Session.Accounts.Item("Kontoname")" gefunden und in meinem Code entsprechend eingesetzt. Leider funktioniert dies so nicht und ich bekomme die Fehlermeldung " Fehler beim Kompilieren, dabei wird der Passus .Session blau markiert.
Könntet Ihr bitte einmal Licht ins dunkel bringen was ich falsch mache?
Code:
Private Sub CommandButton2_Click()
'Hier definiere ich eine Variable für den Anhang
Dim strAnhang As String
'In der Zelle C 29 befindet sich der korrekte Pfad
strAnhang = Range("C29")
'DIESER TEIL ÖFFNET "OUTLOOK"
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Set .SendUsingAccount = .Session.Accounts.Item("cn_carrier_advice@adidas.com")
'FOLGENDE TEXTE WERDEN IN DIE E-MAIL GESCHRIEBEN
Mail.To = ""
'Betreff:
Mail.Subject = "Groupage " & Range("C27").Value
'Mailtext
Mail.Body = "Hello all" & Chr(13) & _
"" & Chr(13) & _
"please find attached the preadvise" & Chr(13) & _
"" & Chr(13) & _
"Best regards"
'hier soll der Anhantg hinzugefügt werden
Mail.Attachments.Add strAnhang
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub
Danke
Nico
Anzeige