Na ja, das Problem steht darin, das mehrere Leute untereinander stehen sollen.
Darunter z.B. eine Abrechnung.
Es soll also jeweils an die Vorstehende Person eine Mail geschickt werden, mit den nachfolgenden Daten in den Zellen.
Es sind z.B. 10 leute u. auf Mausklick sollen die entsprechenden Daten an die entsprechenden Leute gesendet werden.
Wie soll das mit outlook gehen?
Ich habe im netz mal diesen Code gefunden:
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal LpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Mail( _
EMail As String, _
Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + EMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Sub MailVersenden()
Dim rng As Range
Dim sMail As String, sSubject As String
Dim sBody As String
Dim iRow As Integer, iCol As Integer
sMail = "max.mustermann@test.de"
sSubject = "Excel-Daten-Test"
Set rng = Range("A1").CurrentRegion
For iCol = 1 To rng.Columns.Count
For iRow = 1 To rng.Rows.Count
sBody = sBody & rng.Cells(iRow, iCol) & " "
Next iRow
Next iCol
Call Mail(sMail, sSubject, sBody)
End Sub
Kann man sich hier auch sagen, es sollen nur bestimmte Zellen versendet werden und nicht gleich alle Inhalte?
Kann man das nicht auch soregeln, das es einfach so gehandhabt wird, das gleich versant wird, ohne erst noch auf Senden zu klicken? Outlook kann auch verwendet werden, es steht Office 2003 zur verfügung. |