Ich müsste ein soeben gespeichertes Excel-File per Email verschicken. Nun dauert das Speichern eine gewisse Zeit und das Mail findet das Attechment im Verzeichnis nicht. Im Moment habe ich das mit einer Warteschlaufe gelöst. Finde diese Lösung aber nicht sauber, denn die Filegrösse und somit die Speicherzeit kann ändern. Weiss jemand eine bessere Lösung evtl. mit Prozessüberwachung oder wie man das Excelfile direkt verschickt ohne es zu speichern, da ich es anschliessend wieder löschen muss?
Mit bestem Dank
Guido
'ExcelFile speichern
exApp.Workbooks.Item(1).SaveAs("c:\" & RechnungsNummer)
While Wait < 5000000000 'warten bis gespeichert
Wait += 1
End While
exApp.Quit()
exApp = Nothing
Dim Attachment As New System.Web.Mail.MailAttachment("c:\ & Rechnungsnummer _ & ".xls")
'Absender
eMail.From = Absender
'Empfänger
eMail.To = Empfaenger
'Titel der Email
eMail.Subject = "Invoice"
'Body
eMail.Body = "Hi Mister ... Check the attachment please. Greeting from ...."
'Anhang
eMail.Attachments.Add(Attachment)
'SMTP-Server definieren
System.Web.Mail.SmtpMail.SmtpServer = "mail"
'Mail senden
System.Web.Mail.SmtpMail.Send(eMail)