Wie kann man eine E-Mail per VBA verschicken?

Fügen Sie dazu folgenden Code in die entsprechende Ereignisprozedur ein. Binden Sie über Extras - Verweise
die Microsoft 10.0 Object Library (bzw. Ihre passende OL-Version) ein.

   Dim objOutlook As Object
   Dim objOutlookMsg As Object
   Dim objOutlookRecip As Object

   ' Create the Outlook session.
   Set objOutlook = CreateObject("Outlook.Application")

   ' Create the message.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

   With objOutlookMsg
      .To = "S.Engel@gsi.de"
      .Subject = "Neuer Gast in KP2"
      .Body = "text"

   ' Empfängernamen überprüfen.
      For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
      Next

   ' Nachricht vor dem Senden anzeigen?
      '.Display
      .Send

   End With
   Set objOutlook = Nothing

-- KerstinSchiebel - 11 Aug 2005
Topic revision: r1 - 2005-08-11, KerstinSchiebel
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding GSI Wiki? Send feedback
Imprint (in German)
Privacy Policy (in German)