AW: Mail generieren
14.07.2005 08:58:02
Heiko
Hallo Ulli,
Sub ExcelSend(strBetreff As String, strMAddress As String, StrText As String)
Dim OutApp As Object
Dim Nachricht
Dim strSignature As String
strSignature = "Mit freundlichen Grüßen," & vbCr & vbCr & _
"..." & vbCr & _
"..." & vbCr & vbCr & _
"..." & vbCr & _
"..." & vbCr & _
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = strBetreff
.body = StrText & vbCr & vbCr & vbCr & strSignature
.To = strMAddress
On Error Resume Next
' Mit .Send wird wird die Mail gleich in den Postausgang gelegt,
' die Outlook Sicherheitsabfrage muss aber jedesmal bestätigt werden.
'.Send
' Mit .Display wird die Mail zwar "angezeigt" aber mit den Sendkeys auch sofort versendet.
' OHNE Sicherheitsabfrage.
.Display
' % sendet die ALT - Taste, s dann den Buchstaben s.
SendKeys "%s", True
On Error GoTo 0
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Aufruf mit,
Sub senden()
ExcelSend "Dies ist ein Test", "irgendjemand@provider.de", "Hallo," & vbCr & vbCr & "Test Text"
End Sub
Du mußt dir dann nur noch deine Daten zusammenstellen und übergeben. Für mehr Info schau mal bei Online-Excel vorbei da gibt es ein Tutorial zum Thema.
http://www.online-excel.de/excel/grusel_vba.php?f=8
Gruß Heiko
PS: Rückmeldung wäre nett !