|
Hallo alle zusammen,
ich bin gerade dabei ein Makros Programm zu schreiben, dass automatisch eine Email generiert. Das Programm funktioniert auch soweit. Ich will aber gerne, dass es mit relativen Bezügen arbeitet. So ziemlich alle Range Befehle (außer die EMail Lookup Tabelle) sollen mit der aktiven Zeile mitgehen. Ich weiß leider nicht wie ich das Programm dazu umschreiben kann. Genauso soll auch das Programm über einen Hyperlink in der jeweiligen Zelle ausführbar sein. Vielleicht kann mir ja jemand weiterhelfen.
Das Programm sieht derzeit so aus:
Sub EmailAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Dim Abteilung As String
Dim EMail As Range
Dim Eins As String
Dim Zwei As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Abteilung = Sheets("Tabelle1").Range("N2")
Set EMail = Sheets("Info").Range("C4:E5")
Eins = Application.WorksheetFunction.VLookup(Abteilung, EMail, 2, False)
Zwei = Application.WorksheetFunction.VLookup(Abteilung, EMail, 3, False)
With objMail
.to = Sheets("Tabelle1").Range("L2").Value
.CC = Sheets("Tabelle1").Range("G2").Value & "; " & Sheets("Tabelle1").Range("H2").Value & "; " & Eins & "; " & Zwei
.Subject = "Text " & Sheets("Tabelle1").Range("M2").Value
.Body = "Hallo " & Sheets("Tabelle1").Range("I2").Value & " " & Sheets("Tabelle1").Range("J2").Value & vbCrLf & vbCrLf & "anbei der Text aus" & " " & Sheets("Tabelle1").Range("M2").Value & "."
.Display
End With
End Sub
|