Hallo, mir wurde schon oft hier geholfen und hoffe, dass ich bei meinem nächsten Problem wieder so toll unterstützt werde.
Ich möchte ein Makro schreiben, das automatisch E-mails versendet. Besonderheit: Es gibt verschiedene E-Mail-Adressen, mit verschiedenen Anhängen. Jetzt möchte ich aber das net alles händig machen, sondern mir ein Makro schreiben, das automatisch aus der einen Splate sich die Mail-Adressen zieht und in einer weiteren ein Dateinamen-Präfix.
Der Dateiname setzt sich folgenderweise zusammen:
c:\xxx\xxx\Dateinamen-Präfix\Datum(JJJJMMDD).xls
Wie kann ich dem Makro klar machen, das wenn in einer Spalte das Präfix steht, in der gleichen auch noch die dazugehörige E-Mailadresse?
Hab mal meinen Ansatz hier angefügt. Sicherlich stark(!) verbesserungswürdig.
Sub E_mail1()
Dim Präfix As Integer
Präfix = 0
For i = 8 To 16
If Cells(i, 1) „“ Then Call E_mail2 Else: GoTo Ende
Präfix = Präfix + 1
Next i
Ende:
End Sub
Public Sub E_mail2()
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long
Dim Zieldatei As String
'Start der Sendeschleife an 10 Empfänger
For i = 8 To 16
Set objOutlook = CreateObject(„Outlook.Application“)
Set objMail = objOutlook.CreateItem(0)
With objMail
.SentOnBehalfOfName = „E-mailadd“
.To = Cells(i, 4)
.Subject = „xxx“ & CStr(Date)
.Attachments.Add ("c:\xxx\xxx& Cells
(i,1)’{Dateipräfix} & DateAdd(„y“, Date, „yyyy“) & _
DateAdd(„m“, Date, „mm“) & DateAdd(„d“, Date, „dd“)
& „.xls“)/ '–> Hier hakt es
.Send '.display
End With
Set objMail = Nothing
Set objOutlook = Nothing
Next i
End Sub
Wäre toll wenn jm ne Antwort kennt. Danke!!!