| |

Fragen & Antworten rund um sev-KomponentenRe: sevMail: Email speichern | |  | Autor: e_ditsche4352523 | Datum: 26.03.10 16:15 |
| Es wird kein Fehler gemeldet, es wird nur keine Datei ausgegeben.
Folgend mein Code (Pfade werden korrekt übergeben und TXTs sind auch gefüllt, habe es auch mit SMTP-Daten und .SendMail versucht):
With sevSMTP1
'Absenderangaben
.SenderName = Me!txtSenderName
.SenderEMail = Me!txtSenderEMail
.Organization = Me!txtOrganization
.ReplyTo = Me!txtReplyTo
' Empfänger
.Recipient = IIf(IsNull(Me!txtRecipient), "", Me!txtRecipient)
.CC = IIf(IsNull(Me!txtCC), "", Me!txtCC)
.BCC = IIf(IsNull(Me!txtBCC), "", Me!txtBCC)
' Nachricht
.Subject = IIf(IsNull(Me!txtSubject), "", Me!txtSubject)
.Message = IIf(IsNull(Me!txtMessage), "", Me!txtMessage)
.MessageHTML = FileRead(strPathTempDir & "\mailview.tmp")
.Notification = (Me!chkNotification <> 0)
Select Case Me!cmbPriority.Text
Case "Niedrig"
.Priority = sevMailPriority.Low
Case "Hoch"
.Priority = sevMailPriority.High
Case Else
.Priority = sevMailPriority.Normal
End Select
' Anlagen (autom. Zippen, wenn > 10 KB)
.AutoZIP = IIf(Me!chkAutoZIP <> 0, Val(IIf(IsNull(Me!txtKB), "", Me!txtKB)), 0)
.AttachmentClear
For i = 0 To Me!lvwAttachment.ListItems.Count - 1
.AttachmentAdd Me!lvwAttachment.ListItem(i).ListSubItems(2).Text
Next i
sevSMTP1.SaveMailTo = Send_GetNextFile()
End With
alles andere, wie u.a. Email-Daten lesen, läuft einwandfrei, nur eines noch, bei .. .Attachment.FileSize() bekomme ich höhere Werte für eine Datei im Anhang, als wenn ich die Datei extrahiere und dann mit FileLen() arbeite? |  |
 | 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 |
  |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
Copyright ©2000-2025 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
|
|