hallo danwe,
bevor ich jetzt den code ausernandernehme, bzw. ändere- ich habe noch etwas gefunden
du willst ja die daten aus excel per email versenden, evtl. ist es die lösung, die excel-datei gleich zu verschicken
dann schreib einfach:
ActiveWorkbook.SendMail(Recipients:="email@email.de.de"
und wenn nicht, antworte nochmal und ich schau mir die andere lösung an
viele grüße
rasta
ps- und sei vorsichtig, deine emailadresse zu posten. der emaileintrag ist gesichert, aber auf gepostete adressen im beitrag könnten irgendwelche "mailadressensammler" zugreifen
Danwe schrieb am 12.10.2005 13:17:20:
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. |