Hi, ich versende aus Excel mit diesem Code mails via Notes
-----------------------
sText = Range("H" & i + 1).Value
sEmpfang = Range("D" & i + 1).Value ' Einträge durch " ; " getrennt
sBetrifft = Range("G" & i + 1).Value ' die Betreffzeile
'Wenn du keine Kopie od Blindkopie versenden willst, dann grad weglassen
sKopie = Range("E" & i + 1).Value ' Einträge durch " ; " getrennt
'sBlindKopie = "Email1 ; Email2 " ' Einträge durch " ; " getrennt
vAn = Split(sEmpfang, " ; ") ' Empfänger Array
sAnhang = "C:\Vertriebsbericht\" & Range("B" & i + 1).Value & Month(Date) & Year(Date) & ".zip" ' Muss natürlich richtig gesetzt werden
If Len(sKopie) > 0 Then vCopy = Split(sKopie, " ; ") 'cc Array
If Len(sBlindKopie) > 0 Then vBlind = Split(sBlindKopie, " ; ") 'bcc Array
Set session = CreateObject("notes.notessession") ' Notes muss gestartet sein denke ich
user = session.UserName
server = session.GetEnvironmentString("MailServer", True)
mailfile = session.GetEnvironmentString("MailFile", True)
Set db = session.getdatabase(server, mailfile)
Set doc = db.createdocument()
doc.Form = "Memo"
doc.SendTo = vAn ' an array
If Len(sKopie) > 0 Then doc.copyto = vCopy 'cc Array
If Len(sBlindKopie) > 0 Then doc.blindcopyto = vBlind 'bcc Array
doc.Subject = sBetrifft ' die Betreffzeile
Set rtitem = doc.CREATERICHTEXTITEM("body")
Call rtitem.APPENDTEXT(sText)
doc.SAVEMESSAGEONSEND = True
doc.PostedDate = Now
' *******************************************
If sAnhang <> "" Then
Set AttachMe = doc.CREATERICHTEXTITEM("Attachment")
Set DerAnhang = AttachMe.EMBEDOBJECT(1454, "", sAnhang, "Attachment")
End If
'*******************************
Call doc.Send(False)
Aufraeumen:
On Error Resume Next
Set rtitem = Nothing
Set AttachMe = Nothing
Set DerAnhang = Nothing
Set db = Nothing
Set doc = Nothing
Set session = Nothing
Next i
Exit Sub
Fehler:
Resume Aufraeumen
-----------------------------
funktioniert super, nur habe ich das Problem, sobald ich mehr als einen Empfänger eintrage kommen diese immer mit der Adresse
Name@spamfilter.meinefirma.de
das komisch ist, dass bei mir im Postausgang die adressen passen und wenn ich das mail aus dem Postauagang nochmals sende funktioniert es auch. also schein der automatismus dies hervorzurufen und nicht die adressen ansich.
hat jemand eine idee oder einen tipp, wie ich das verhindern kann?
danke schon mal
Harry
