AW: Anpassen Mail mit vorgegebenen Text
07.06.2006 15:08:48
Gerald
Hi!
Bin kein VBA-Guru, aber ich hab mal so einen ähnlichen Code hier gefunden. Hier die abgewandelte Version.. dem Urheber "Unbekannt" ein Danke!!!
'---------------------------------------------
Private Sub Mail_verschicken()
Dim Nachricht As String
Dim Betreff As String
Dim Eadresse as String
' der Value der Nachricht buw. des Betreffs kann natürlich auch der Value eines
' Objektes zb. Textbox eines Formulares sein!
Nachricht = "Das ist der Standardtext"
Betreff = "Das ist der Standardbetreff"
Eadresse = "test@test.com"
Outlook_Mail Eadresse, Betreff, Nachricht, Anlage
'Outlook_Mail "DeinName@home.de", "2.Test mit Betreff, mit Msg, ohne Anlage", "Hier steht die Nachricht"
'Outlook_Mail "DeinName@home.de", "3.Test mit Betreff, mit Msg, mit Anlage", "Hier steht die Nachricht", "c:\temp\test\dremel.jpg"
End Sub
'------------------------------------------------------------------------------
Sub Outlook_Mail(EmailEmpfänger As String, EmailBetreff As String, _
Optional EmailMsg As String, Optional EmailAnlage As String)
'------------------------------------------------------------------------------
Dim myOlApp, olMailItem, MailItem, myRecipient, myAttachments
'--Outlook wird geöffnet
Set myOlApp = CreateObject("Outlook.Application")
'--Fenster für neue Mail wird geöffnet
Set MailItem = myOlApp.CreateItem(olMailItem) '--opens new email
On Error GoTo ErrorHandler
'--Empfänger der Mail wird in das Adressfeld "An:" geschrieben
Set myRecipient = MailItem.Recipients.Add(EmailEmpfänger)
'--Betreff der Mail wird in das Feld "Betreff:" geschrieben
MailItem.Subject = EmailBetreff
'--Der Text der Nachricht wird übertragen
MailItem.Body = EmailMsg
'--Wenn Anlage angehängt werden soll, in nächster Zeile
'--das Apostroph entfernen.
If EmailAnlage "" Then Set myAttachments = MailItem.Attachments.Add(EmailAnlage)
MailItem.Send '--Email wird gesendet
ErrorHandler:
MsgBox vbTab & "Eine E-Mail an die Adresse " & vbCrLf & vbCrLf & _
vbTab & EmailEmpfänger & vbCrLf & vbCrLf & _
"kann leider NICHT automatisch versendet werden."
End Sub
'--------------------------------------
Gruß
Gerald