Mailversand ohne Anlage
30.08.2003 12:31:57
Thomas Wulf
ich habe da eine Wochenendbeschäftigung.Vielleicht kann mir einer dabei helfen.
Ich habe schon das Archiv durchstöbert, aber nur den unten stehenden Code gefunden.
Mein Ziel ist es, beide miteinander zu kombinieren.
Wenn der Wert in Zelle A1 in meiner Arbeitsmappe >3 ist, soll automatisch eine Mail mit Outlook versandt
werden.
Es soll aber nicht wie im Code 1 die Arbeitsmappe als Anlage beigfügt werden, sondern wie im Code 2 nur eine
Textnachricht gesendet werden.
Dafür wird die Mail aber im Code 2 nicht automatisch versandt.
Im Archiv ist Frage schon mal vorhanden, aber keine Lösung dabei.
Wenn mir einer weiterhelfen könnte, wäre ich sehr dankbar für einen Lösungsvorschlag.
1.) mein Code mit dem ich zur Zeit arbeite.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 2 Then _
ActiveWorkbook.SendMail _
Recipients:="Empfängeradresse", _
Subject:="ACHTUNG!!! Änderung in Zelle A1."
End Sub
2.) diesen Code habe ich im Archiv 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 eMail As String, Subject As String, Body As String
eMail = "Empfängeradresse"
Subject = "Betreff-Text"
Body = "Dein zu versendender Text"
Call Mail(eMail, Subject, Body)
End Sub
Schon mal danke im voraus und ein schönes Wochenende.
schöne Grüße
Thomas