Excel per Makro mailen inkl. Anhang

Ich will Zellen A1:A11 meines Excels verschicken, zusätzlich aber noch einen Anhang haben. Wie mache ich das? Im untenstehenden Code kommt der debugger beim Code Item.Attachment....

Zusätzlich noch die Frage, wie ich denn von einer anderen E-mail Adresse aus schicke. Es handelt sich um eine Team-Email-Adresse vom Geschäft für welche ich Berechtigung habe. Item.From = "mail@dresse" funktioniert nicht....

Vielen Dank

Private Sub CommandButton1_Click()

ActiveSheet.Range("A1:A11").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
' .Item.From = "mai@dresse"
.Item.To = "mai@dresse"
.Item.Cc = "mai@dresse"
.Item.Subject = "Betreff"
' .Attachment.Add "O:\W\file.pdf"
.Item.Display

End With

SendKeys "%s", True
Set objMail = Nothing
Set objOutlook = Nothing



End Sub

 

Kann mir denn wirklich niemand helfen????

 

Meiner Ansicht nach hast Du den Code irgendwo herkopiert ohne diesen wirklich zu verstehen.

Am Ende hast Du die Zuweisungen set obj...=Nothing -> dementsprechend wäre vorher eine Zuweisung
set obj...=CreateObject("Outlook.Application") nötig...

 

Den letzten Teil hab ich mir tatsächlich von irgendwo kopiert, da ich das mit dem SendKeys "%s", True nicht gewusst habe und vorher immer die version mit .Item.Send gewählt habe aber dann immer diese Outlook Warnung erhalten habe. Bei dieser Vorlage war halt Set objMail = Nothing
Set und objOutlook = Nothing und somit hab ichs mitkopiert.

Liegt es daran, dass es nicht funktioniert?

 

übrigens kommt laufzeitfehler

Laufzeitfehler 438
Objekt unterstützt Eigenschaft oder Methode nicht.

 

.Item.Attachments.Add "O:\W\file.pdf" und alles läuft super....

Nur muss ich jetzt noch wissen, wie ich von einer anderen Mail Adresse aus ein Mail verschicke, da Item.From = "mai@dresse nicht funktioniert.

Wenn ich ein Mail manuell aus Outlook versende funktioniert das einwandfrei, nur wie baut man die Sch**** in den Code ein

Danke schon mal

 

Ich denke, das Outlook auf Deinem PC kennt diese entsprechende Identität oder den Kontonamen nicht bzw. ist nicht als Standardkonto deklariert.

Die verschiedenen Outlook-Konten dienen zur Verwaltung mehrerer email-Accounts innerhalb einer Identität. Da kann es beim Versenden schon mal passieren, dass mit der falschen Absenderadresse geschickt wird...

In Deinem Fall (Team-Adresse mit mehreren Empfängern) würde sich die Verwendung einer anderen Identität anbieten (unabhängig von Deinem "normalen" mail-Account).

Zur Identität: in der Systemsteuerung unter mail können weitere hinzugefügt werden, d.h. Outlook betrachtet jede als unabhängig mit eigenen Einstellungen, Adreßbuch usw.


Versuchs mal damit...

 

Ich glaube es liegt grundsätzlich einfach am Code. Item.From... funktioniert auch nicht wenn ich danach meine persönliche mail-adresse angebe...

Dein Vorschlag wird aber trotzdem mal ausprobiert und in die Tat umgesetzt.

Danke

 

Item.SentOnBehalfOfName machts möglich!

 

Hallo...

Es hat sich eine weitere Anforderung ergeben..

Nachdem das Mail gesendet wurde, möchte ich Empfänger, Betreff und Anhang entfernen damit ich das gleiche Mail mit einem anderen Betreff und Anhang an einen anderen Empfänger senden kann...