title image


Smiley Re: Mail senden per VBA
Hallo Pauline,



das folgende Beispiel funktioniert bei mir mit Word XP und Microsoft Outlook. Bei evtl. auftretenden Fehlern überprüfe die Verweise im VBA-Editor für das Projekt.

'Attribute VB_Name = "modEMailVerschicken"

Sub EMailVerschicken()

Dim outl, Mail As Object

Set outl = CreateObject("Outlook.Application")

Set Mail = outl.CreateItem(0)

'

Mail.Subject = "Dateien im Anhang"

Mail.Body = "Viel Spaß damit!:"

Mail.To = "mich@gibtsnet.com"

'

' With Application.FileSearch

' .NewSearch

' .LookIn = "c:\test"

' .SearchSubFolders = True

' .FileType = msoFileTypeAllFiles

' .Execute

' '

' For i = 1 To .FoundFiles.Count

' Mail.Attachments.Add .FoundFiles(i)

' Next i

' End With

' Mail.Attachments.Add .FoundFiles(i)

'

Mail.Attachments.Add "D:\Dok1.doc"

Mail.Display

End Sub

Noch einige Links zum Thema:

How to send an email from Word using VBA

http://www.mvps.org/word/FAQs/InterDev/SendMail.htm



WD: Example Macro to Send E-mail Using MAPI Commands (Q180631)

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q180631



      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: