ich habe heute etwas im Archiv gestöbert, da ich mir ein Makro basteln möchte um aus einer Tabelle heraus die selbe an mehrere Adressen zu versenden.
Nun ich bin auch fündig geworden und habe folgendes Makro kopiert und getestet.
Sub mail()
Set olApp = CreateObject("Outlook.Application")
Set myMail = olApp.CreateItem(olMailItem)
With myMail
.Recipients.Add "fish.hawk@t-online.de"
.Subject = "Wochenplan"
.Body = "anbei der aktuelle Wochenplan" & vbCr & "Gruß DD"
.Attachments.Add ThisWorkbook.Path & "\email_versenden.xls"
.DeleteAfterSubmit = True
.Send
End With
End Sub
Also erst einmal, es funktioniert. Ich hätte aber nun noch gerne ein paar Dinge Optimiert:
> In der Arbeit benutz ich TopitInfoCenter, wie ruf ich das auf?
> Wie hänge ich mehrere Adressen an (am besten in eine Zelle geschrieben)?
> Wie kann ich das eigentliche Email-Layout optimieren? Der Dateianhang wird einfach irgend wo eingepflanzt!
Würde mich auf Antworten freuen,
Gruß
David