Mail aus VBA via API verschicken |
|
Es gibt diverse Möglichkeiten, aus Word bzw. VBA heraus eine Mail zu verschicken. So sollten z.B. die MailMerge-Funktionen im Zusammenhang mit MS Outlook verwendet werden. Einschränkung: 1 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 2 Private Const SW_SHOW = 5 3 Sub Mailen() 4 Dim sTo, sSubject, sBody As String 5 sTo = "xy@xyz.abc" 6 sSubject = "Betreff" 7 sBody = "Dieses steht im Mail-Text" 8 ShellExecute hWnd, "open", "mailto:" & sTo & _ " ?Subject=" & sSubject & " &Body=" & sBody, _ vbNullString, vbNullString, SW_SHOW 9 'DoEvents 10 End Sub |
Besucher: 0 online | 0 heute | 0 diesen Monat | 2202291 insgesamt | Seitenaufrufe: 46 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Wer eine Lüge sagt, merkt nicht, welch große Aufgabe er übernimmt; denn er wird gezwungen sein, zwanzig weitere zu finden, um diese eine aufrechtzuerhalten. Franz VII, Herzog von La Rochefoucauld |
powered by phpCMS and PAX |