Email automatisch senden
16.08.2007 20:32:00
Peter
ich habe mir einen VBA-Code geschrieben mit dem ich Dateien versenden kann. Leider ist der Sendebefehl mir nicht geläufig. Ich muss immer pro Mail den Sendebutton aus dem Mail.Display anklicken, um die Mail abzusenden.
jetzt möchte ich diese mit dem VBA-Code automatisieren aber wie ?
Mein bisheriger Code sieht so aus:
Sub mail_senden()
Dim outObj As Object
Dim Mail As Object
Dim i As Byte
Set outObj = CreateObject("Outlook.application")
Set Mail = outObj.createitem(0)
With Mail
.Subject = "KabelFon Rechnung für: " & Name
.body = "Sehr geehrter Teilnehmer"
.To = "edv@irgendwo.de"
FileName = Kunde_ID & "*.pdf"
With Application.FileSearch
.NewSearch
.LookIn = "D:\ksb-kundenverwaltung\Kernel\FONEVN\"
.FileName = FileName
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Mail.Attachments.Add .FoundFiles(i)
Next i
End With
End With
Mail.display
Set Mail = Nothing
Set outObj = Nothing
Herzlichen Dank im Voraus
mit freundlichen Grüßen Peter
End Sub
Anzeige