vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Outlook MAPI 
Autor: Paulix1
Datum: 16.09.14 17:49

Hallo,

ich verwende das Programm aus vb@rchiv "Mails mit Anlagen versenden (MAPI-Control)"
Bei einem Anhang funktioniert es nahezu immer.

Bei mehreren Anhängen tritt beim Eintrag .AttachmentPosition = 1 oder 2 oder ... ein Fehler auf.
Das ist leider nicht immer so, manchmal gehen auch 3 Anhänge.
Das versenden ohne Anhang funktioniert immer.

Beispielcode:
Sleep 500
.AttachmentIndex = 0
.AttachmentPosition = 0
.AttachmentName = "a112.txt"
.AttachmentPathName = "D:\a112.txt"

.AttachmentIndex = 1
.AttachmentPosition = 1
.AttachmentName = "a112.txt"
.AttachmentPathName = "D:\a112.txt"

.AttachmentIndex = 2
.AttachmentPosition = 2
.AttachmentName = "a112.txt"
.AttachmentPathName = "D:\a112.txt"
Mit der Bitte um Hilfe
Paulix

Umgebung:
W7, Outlook 2013
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Outlook MAPI 
Autor: Blackbox
Datum: 19.09.14 17:44

Hi,

wie ich mich richtig entsinne (schon lange nichts mehr mit Outlook-VBA gemacht) hat das Attachment-Objekt auch eine Collection namens Attachments. Und diese Collection hat eine Methode namens: Add,
also Attachments.Add ...
Über diese Methode werden der Auflistung einzelne Anhänge hinzugefügt. MW ist der Index der Collection sogar schreibgeschützt.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Outlook MAPI 
Autor: OGGI
Datum: 22.09.14 13:55

Howdy Paulix1,

evtl. hilft dir dieser Codeschnipsel weiter, siehe Anmerkungen im Code:

                        'attachmend hinzufügen
                        If sAttachment <> "" Then
                            sp = Split(sAttachment, ",", -1)
                            For y = 0 To UBound(sp)
                                If sp(y) <> "" Then 'keinen nullstring senden
                                    .AttachmentIndex = y
                                    .AttachmentPosition = y 'zwei attachments 
                                    ' können nicht an der gleichen position in 
                                    ' der email stehen
                                    .AttachmentName = DATNAME(sp(y))
                                    .AttachmentPathName = sp(y)
                                End If
                            Next y
                        End If
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Outlook MAPI 
Autor: Paulix1
Datum: 25.09.14 16:24

Hallo Oggi,
Danke für Deine Codeschnipsel.
Daß das Anhängen mal funktioniert mal nicht, da war der Grund, dass in der Mail mehr Characters sein müssen als Anhänge hinzugefügt werden.
Nach langem suchen, es gibt für MAPI auch eine Beschreibung und Hilfe.
Nochmals Danke
Paulix
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Outlook MAPI 
Autor: visualfx
Datum: 11.02.17 17:56

Hallo Paulix,

ich hatte gerade genau dasselbe Problem wie Du!

Ich möchte über MAPI eine neue Mail generieren mit E-Mail-Adresse, Betreff und einer PDF-Datei als Anlage.

Alles mögliche / unmögliche ausprobiert => Ergebnis: lauter mysteriöse Fehlermeldungen !!!

Nach stundenlangem (!!!) Rumprobieren bin ich zum Glück auf Deine Lösungs-Antwort gestoßen! Danke!

- ich setzte jetzt MsgNoteText auf ein Leerzeichen und schon funktioniert alles bestens

Gruß, Stefan

Beitrag wurde zuletzt am 11.02.17 um 18:01:17 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel