title image


Smiley Hilfe Outlook redemption
Hallo Alle zusammen,



die Outlook-Events zu umgehen klappt soweit ganz gut...Allerdings habe ich ein Problem bei den Attachments. Das funktioniert irgendwie gar nich...Ich habe dazu folgendes benutzt (http://www.dimastr.com/redemption/) und der code schaut so aus:

.

.

.

Set SafeItem = CreateObject("Redemption.SafeMailItem") 'Create an instance of Redemption.SafeMailItem

Set oitem = myolApp.CreateItem(0) 'Create a new message

SafeItem.Item = oitem 'set Item property

SafeItem.Recipients.Add RS!email1

SafeItem.Recipients.ResolveAll

SafeItem.Subject = header

SafeItem.Body = An & "," & vbCrLf & vbCrLf & Me.Brieftext

'If Anhang = "yes" Then

'Add Attachment

'strdatei = Me.Attachment

'add attachment

Set Attach = SafeItem.Attachments.Add("C:\test.xls")

Attach.Attachments.Add ("C:\test.xls")

'SafeItem.Attachments.Add ("C:\test.xls")

'End If

If Kontrollkästchen10 = 0 Then

SafeItem.Send

Set SafeItem = Nothing

Else

SafeItem.Display

Set SafeItem = Nothing

End If

.

.

.



Vielleicht kann mir jemand dazu einen Tipp geben die angegebene Website bringt mich irgendwie nicht weiter! :( Ich bin langsam am verzweifeln.....

Vielen Dank!!!





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: