title image


Smiley Danke, aber das reicht noch nicht...
Stark abstrahiert sähe das Coding wie folgt aus (interessante Stellen sind gekennzeichnet ;o)





Sub OutlookMail()

'

Dim objOl As Outlook.Application

Dim objMailItem As MailItem

'

'

Set objOl = CreateObject("Outlook.Application")

Set objMailItem = objOl.CreateItem(olMailItem)

'

With objMailItem

.To = "John.Doe@microsoft.com"

.Subject = "Betreff"

.Body = "Text"

.Display

End With

'

' Hier müsste die Verarbeitung abwarten, was der User tut.

' Dann müsste noch ein kleines Wunder geschehen; anschließend:

'

If Wunder Then

' (...Verarbeitung, wenn die Mail gesendet wurde...)

Else

' (...Verarbeitung, wenn nicht gesendet wurde...)

End If



Set objMailItem = Nothing

Set objOl = Nothing



End Sub





Weitere Vorschläge?



Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: