Emailverteiler aus Makierten Zellen
10.08.2014 20:17:22
Stefan
ich benütze unten aufgeführtes Makro erfolgreich
jetzt müsste ich zur perfektion nur noch die Mailempfänger variabel gestallten.
d.h. es sollten aus der (Tabelle 1) Spalte B die ausgewählt/Makierten Zellen (Welches Mailadressen sind) als Mailempfänger sowie aus Spalte C (z.B. C5:C20) als feste Mailempfänger welche nicht extra makiert werden müssen übernommen werden.
Mailprogramm = Outlook
gibt es da ne relativ easy möglichkeit das in den Code einzubauen ?
Grüße
Sub test()
Dim Mailadresse As String, Betreff As String
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Mailadresse = "Makierte zellen aus T abelle 1 und E4:E10"
Betreff = ""
Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\XXX\Documents\ _
_
stick\Neuer Ordner\Test.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olApp.CreateItem(0)
.to = Mailadresse
.Subject = Betreff
.Attachments.Add "C:\Users\XXX\Documents\stick\Neuer Ordner\Test.pdf"
.Display
.Send
End With
Set olApp = Nothing
End Sub
Anzeige