title image


Smiley jatzt hats mich doch gepackt... (inside)
hallo,

folgendes Makro erzeugt ein E-Mail mit festgelegter Empfänger-Adresse, Betreff und Anlagen:





Sub EmailmitAnlage()

On Error Resume Next

Set myOlApp = CreateObject("Outlook.Application")

Set oItem = myOlApp.CreateItem(olMailItem)

With oItem

.To = "Empfänger@mail.com"

.Subject = "Betreff"

.Attachments.Add "C:\AUTOEXEC.BAT"

.Attachments.Add "C:\CONFIG.SYS"

.Send

End With

Set oItem = Nothing

Set myOlApp = Nothing

End Sub



Natürlich anzupassen...



Das Makro mit ALt-F11 (evt. Strg-R) in ein neues Modul einfügen, starten von Outlook aus mit Alt-F8.



Meld Dich, falls es klappt oder nicht!




Grüße Korbinian



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: