![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Standard-Mailprogramm ermitteln |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||||||||||||||||||||
![]() |
|
![]() |
Es gibt verschiedene Möglichkeiten aus Word heraus E-Mails zu verschicken. In allen Fällen wird das im System registrierte Mailprogramm zugegriffen. Mit einem kleinen Makro kann diese Einstellung aus der Registry ausgelesen werden, Zugriffsrechte auf die Registrierungsdateien
vorausgesetzt. Mit folgendem Makro wird dieser Eintrag ausgelesen und analysiert, da je nach Betriebssystem der Programmpfad mittels Umgebungsvariablen gesetzt wird. Sub Standardmailer() Dim ID As String Dim iTrenner As Integer ID = System.PrivateProfileString("", _ "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\mailto\shell\open\command", "") iTrenner = InStr(1, ID, ".exe", vbTextCompare) ID = Left(ID, iTrenner + 4) If InStr(1, ID, "%ProgramFiles%") > 0 Then iTrenner = InStr(1, ID, "%ProgramFiles%") ID = Right(ID, Len(ID) - iTrenner - Len("%ProgramFiles%")) ID = Environ("ProgramFiles") & "\" & ID ElseIf InStr(1, ID, "%SystemDrive%") > 0 Then iTrenner = InStr(1, ID, "%ProgramFiles%") ID = Right(ID, Len(ID) - iTrenner - Len("%SystemDrive%")) ID = Environ("SystemDrive") & "\" & ID End If If Right(ID, 1) = Chr(34) Then ID = Left(ID, Len(ID) - 1) antw = MsgBox("Ihr Standard-Mailprogramm ist: " & vbCrLf & ID, _ vbInformation, "Standard-Mailprogramm") End Sub Dieses Makro läuft unter
|
![]() |
![]() |
Besucher: 8 online | 218 heute | 4287 diesen Monat | 2175797 insgesamt | Seitenaufrufe: 114 | ![]() |
Letzte Änderung: 24.06.2006 | ![]() |
© 2001-18 Christian Freßdorf | ![]() |
Ich kann Ihnen nichts versprechen als Blut, Schweiß und Tränen Winston Churchill im Wahlkampf während des zweiten Weltkriegs - er wurde gewählt |
powered by phpCMS and PAX |