eMail +Anhänge

[RalfZ]

Hallo allerseits
habe folgendes Problem möchte mittels eMail (MAPI) ] mehrereAnhänge verschicken aber irgendwie haut es nie hin habe schon versucht einfach mehrere Attachments zu setzen aber wie gesagt klappt nicht.

Hier der entsprechende Code Ausschnitt

<<<<<
.To = SendenAn
.Subject = Me!txtSubject
.Body = Me!txtBody


Dim s As String
Dim v As Variant
Dim i As Integer
s = Me.txtAttach
v = Split(s, "; ")
For i = 0 To UBound(v)

.Attachments.Add v(1), olByValue, 1, "test " & (1)
Next
.Importance = olImportanceHigh
.Display

>>>>>

gruß und danke Ralf

 

[JensG]

Hallo RalfZ,

ich gehe jetzt davon aus das du die MapiControls benutzt und nicht
das Outlook Objektmodell.
Versuche es mal so

For i = 0 To UBound(v())
        .MsgNoteText = Space(UBound(v()) + 1) & vbCrLf & .Body
        .AttachmentIndex = i
        .AttachmentPosition = i
        .AttachmentPathName = (v(i))
Next i

Gruß
Jens

 

[RalfZ]

Danke für die schnelle Antwort aber leider benutze ich das Objektmodell.
Und da klappt es nicht mit dem "AttachmentPathName"

Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objDefaultMail As Outlook.MAPIFolder
Dim objMail As Outlook.MailItem
'Dim rs As DAO.Recordset
Dim src As String

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objDefaultMail = objNameSpace.GetDefaultFolder(olFolderOutbox)

Danke und Gruß Ralf

 

[JensG]

Na dann
Hier mal ein Codeauschnitt aus einer Anwendung von mir,
das sollte dich auf den richtigen Weg bringen.

        .Body = Nachricht & vbCrLf & vbCrLf 
           
        If Len(Anhang) <> 0 Then
              If Anhang Like "*;*" Then
                   strSplitAnhang() = Split(Anhang, ";", , vbTextCompare)
                 
                   For z = LBound(strSplitAnhang()) To UBound(strSplitAnhang())
                         .Attachments.Add Source:=Pfad & strSplitAnhang(z)
                   Next z
                            
              Else
                   .Attachments.Add Source:=Pfad & Anhang
              End If
        End If

Jens

 

[RalfZ]

Perfect kann ich nur sagen Klappt 1a bin wirklich begeistert
den Parameter source: den man als String ransetzen kann, kannte ich nicht.
Wie gesagt Klasse hab seit Tagen das Internet und auch dieses Forum durchsucht und nichts dergleichen gefunden.
Gibt es noch irgendwelche Referenzen mit mehr Parametern?

Gruß und nochmals vielen Dank Ralf
kann jetzt beruhigt ins Weekend gehen.