Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.5K Microsoft Dynamics NAV
- 18.5K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 262 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 992 SQL General
- 385 SQL Performance
- 33 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 259 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
mail with attachment
Chilango
Member Posts: 5
Hi,
I would like to send e-mails with more than one attach. So I had
modified the codeunit mail (397). When I do not use text I could
not order the attachments and when I am trying to modifiy the
function I get errors in the mailing system.
//-002
IF DateiNameAnhängen2 <> '' THEN BEGIN
MAPIMitteilungen.AttachmentIndex := MAPIMitteilungen.AttachmentCount;
MAPIMitteilungen.AttachmentType := 0;
MAPIMitteilungen.AttachmentPathName := DateiNameAnhängen2;
// MAPIMitteilungen.AttachmentPosition();
END;
//+002
Thank you very much
for helping
I would like to send e-mails with more than one attach. So I had
modified the codeunit mail (397). When I do not use text I could
not order the attachments and when I am trying to modifiy the
function I get errors in the mailing system.
//-002
IF DateiNameAnhängen2 <> '' THEN BEGIN
MAPIMitteilungen.AttachmentIndex := MAPIMitteilungen.AttachmentCount;
MAPIMitteilungen.AttachmentType := 0;
MAPIMitteilungen.AttachmentPathName := DateiNameAnhängen2;
// MAPIMitteilungen.AttachmentPosition();
END;
//+002
Thank you very much
for helping
0
Comments
Marcus
Marcus Fabian
NewMessage(ToName : Text[80];Subject : Text[250];Body : Text[250];AttachFileName1 : Text[250];AttachFileName2 : Text[250])
MAPISession.DownLoadMail := FALSE;
IF MAPISession.SessionID = 0 THEN BEGIN
IF "E-Mail Profile Name" <> '' THEN BEGIN
MAPISession.UserName := GetProfileName();
MAPISession.LogonUI := FALSE;
END;
MAPISession.SignOn;
END;
MAPIMessages.SessionID := MAPISession.SessionID;
MAPIMessages.Compose;
SetNames(1,ToName);
MAPIMessages.MsgSubject := Subject;
IF AttachFileName1 = '' THEN
MAPIMessages.MsgNoteText := Body
ELSE BEGIN
MAPIMessages.MsgNoteText := Body + ' ';
MAPIMessages.AttachmentIndex := MAPIMessages.AttachmentCount;
MAPIMessages.AttachmentType := 0;
MAPIMessages.AttachmentPathName := AttachFileName1;
IF AttachFileName2 <>'' THEN BEGIN
MAPIMessages.AttachmentIndex :=MAPIMessages.AttachmentIndex +1;
MAPIMessages.AttachmentPathName := AttachFileName2;
END;
MAPIMessages.AttachmentPosition(STRLEN(Body));
END;
MAPIMessages.Action(3);
Consultant -Navision
All e Technologies (P) Ltd.
Building Solutions for Extended Enterprises
www.alletec.com